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FOREWORD 


The  Army  Research  Institute  (ARI),  Presidio  of  Monterey  Field  Unit,  has 
conducted  research  on  the  use  of  computer  technology  for  automating  Army  unit 
training  management.  This  research  included  examining  approaches  for  provid¬ 
ing  computer  assistance  to  unit  leaders  for  the  scheduling  of  training.  In  the 
current  effort,  a  prototype  computer  program  was  developed  that  employs  a  new 
heuristic  approach  called  simulated  annealing  for  solving  the  complex  problems 
entailed  in  scheduling  Army  unit  training.  Research  in  this  area  was  conducted 
under  the  sponsorship  of  the  U.S.  Army  Training  Board  (ATB).  This  research  is 
Intended  to  lay  the  groundwork  for  an  applications  version  of  training  schedul¬ 
ing  software  for  the  Integrated  Training  Management  System  (ITMS)  currently 
under  prototype  development  by  the  Army  Development  and  Employment  Agency 
(ADEA)  at  Fort  Lewis , 'Washington . 


AN  APPLICATION  OF  SIMULATED  ANNEALING  TO  SCHEDULING  ARMY  UNIT  TRAINING 


EXECUTIVE  SUMMARY 


Requirement : 

In  Army  units,  numerous  required  training  and  nontraining  activities  com¬ 
pete  for  time.  The  scheduling  of  training  in  the  Army  is  complex  when  done 
manually,  but  computer  assistance  can  reduce  the  complexity  of  training  sched¬ 
uling  for  planners  and  lead  to  better  planning  of  training.  Improved  planning 
can  make  more  efficient  use  of  time  and  resources,  and  thus  contribute  to  im¬ 
proving  readiness. 

Our  objective  was  to  develop  a  prototype  program  applying  a  particular 
heuristic  called  simulated  annealing  to  the  Army  unit  training  scheduling 
problem. 


Procedure : 

The  Army  training  scheduling  problem  is  complex,  in  part  because  it  occurs 
across  different  echelons  and  involves  three  different  types  of  calendars/ 
schedules.  Priorities  of  higher  echelons  almost  always  predominate  over  those 
of  lower  echelons.  In  addition,  many  constraints  exist  for  the  Army  training 
scheduling  problem.  Training  and  nontraining  tasks  require  time  and  resources. 
Resources  can  be  either  reusable  (e.g.,  ranges)  or  expandable  (e.g.,  ammuni¬ 
tion).  Further,  activities  may  have  temporal  constraints,  such  as  requiring 
some  tasks  to  be  trained  ahead  of  others,  or  co-occurrence  constraints  requir¬ 
ing  some  tasks  to  be  trained  simultaneously  with  others.  There  are  also  command 
priority  constraints  at  each  echelon  that  affect  scheduling  requirements.  In 
addition,  the  priority  given  training  varies  at  different  times.  To  provide 
adequate  computer-assisted  training  scheduling,  the  full  diversity  of  the  Army's 
scheduling  problem  must  be  accommodated. 

Simulated  annealing  was  selected  as  a  method  with  high  potential  for  deal¬ 
ing  with  both  the  complexity  and  heterogeneity  of  the  problem.  Simulated  an¬ 
nealing  is  appropriate  when,  as  with  scheduling,  multiple  "good"  solutions  are 
acceptable  as  opposed  to  an  uniquely  "best”  or  optimal  solution.  The  imple¬ 
menting  algorithm  operates  iteratively  by  (1)  random  assignment  of  activities 
to  times,  (2)  extensive  modification  due  to  constraint  accommodations,  and 
(3)  evaluation  of  the  schedule  set  using  a  cost  function.  The  constraint  ac¬ 
commodation  proceeds  by  satisfying  the  most  important  constraints  first,  fol¬ 
lowed  by  the  less  important  constraints.  The  cost  value  is  used  to  determine 
the  extent  to  which  improvement  in  schedule  set  quality  has  been  achieved. 


Findings : 

A  scheduling  system  was  written  as  a  test  program  designed  to  permit 
evaluation  of  the  feasibility  of  simulated  annealing  for  solving  the  Army 
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training  scheduling  problem.  The  system  was  successful  in  demonstratng  that 
this  approach  is  a  promising  one  that  warrants  further  research.  Several  aug¬ 
mentations  of  the  current  implementation  of  the  simulated  annealing  approach 
are  suggested. 

Utilization  of  Findings: 

It  appears  highly  likely  that  an  applications  version  of  a  simulated  an¬ 
nealing  system  can  be  developed  and  implemented  on  the  Integrated  Training 
Management  System  (ITMS),  an  automated  unit  management  system  at  Fort  Lewis, 
Washington.  User  friendliness  and  generation  of  adaptable  reports  for  an  ap¬ 
plications  scheduling  system  will  be  facilitated  by  the  use  of  a  relational 
data  base  management  system  (RDBMS). 
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AN  APPLICATION  OF  SIMULATED  ANNEALING 
TO  SCHEDULING  ARMY  UNIT  TRAINING 


This  report  describes  research  that  is  part  of  an  ongoing  project 
ultimately  intended  to  provide  computer  assistance  to  Army  units  for  the 
scheduling  of  training.  The  objective  here  is  to  develop  a  prototype  program 
applying  a  particular  heuristic  called  simulated  annealing  to  the  Army  unit 
training  scheduling  problem. 


The  Army  scheduling  problem  is  characterized  by  competition  between 
training  and  non-training  tasks  for  scarce  time  and  material  resources.  The 
large  number  of  training  and  non-training  tasks  and  their  associated  time  and 
resource  requirements  make  scheduling  extremely  difficult.  The  scheduling 
problem  is  further  complicated  by  the  following  facts:  (a)  different  echelons 
are  involved  in  creating  the  schedules  and  calendars,  (b)  different  calendars 
are  used  to  plan  for  different  lengths  of  time  into  the  future,  (c)  a  variety 
of  scarce  resources  are  required  for  training,  and  different  echelons  may 
control  different  resources,  and  finally  (d)  a  wide  variety  of  different  types 
of  scheduling  constraints  are  involved,  including  requirements  for  the 
inclusion  of  command  priorities  and  the  inclusion  of  some  activities  as 
prerequisite  for  others. 


Computer  automated  assistance  for  scheduling  training  offers  a  potential 
for  improving  the  allocation  of  training  time  and  resources  in  addition  to 
saving  time  of  planners  responsible  for  accomplishing  the  scheduling  task. 
Better  allocation  of  training  time  to  training  tasks  and  more  efficient  use  of 
scarce  training  resources  are  expected  to  yield  increased  unit  readiness. 


An  additional  advantage  of  computer  automated  assistance  is  its  potential 
to  help  planners  with  comparison  planning.  Comparison  planning  involves  the 
ability  to  ask  "what  if"  questions,  and  then  compare  the  resultant  schedules 
based  on  alternate  options.  For  example,  higher  echelons  may  not  fully 
understand  the  impact  on  lower  echelon  schedules  of  schedule  changes  that  are 
made  at  higher  levels.  However,  computer  automated  assistance  would  provide 
the  opportunity  for  higher  echelons  to  understand  the  relative  costs  of  making 
possible  changes  prior  to  actually  making  them.  Thus,  the  impact  of  schedule 
changes  can  be  identified  and  negative  effects  minimized. 


The  scheduling  system  described  here  is  designed  to  lead  to  a  system  to  be 
implemented  on  the  Integrated  Training  Management  System  (ITMS),  at  Fort 
Lewis,  Washington  (see  Army  Development  and  Employment  Agency  [ADEA] ,  January, 
1985).  The  ITMS  is  a  division-level  prototype  system  demonstrating  computer 
automation  of  unit  training  management.  A  system  like  the  prototype  may 
eventually  be  implemented  widely  throughout  the  Army.  The  Army  training 
scheduling  problem  exists  in  its  full  complexity  on  the  ITMS. 


The  scheduling  system  that  is  described  here  builds  upon  previous  work  on 
automated  training  scheduling  and  resource  allocation,  sponsored  by  the  Army 
Training  Board  (Van  der  Eijk,  Ignizio,  &  Yang,  1981;  Yang  &  Ignizio,  1982; 
Medeiros  &  Yang,  1983;  Medeiros  &  Yang,  1983b).  This  work  includes  a  computer 
program  designed  to  schedule  training  during  mobilization  called  "The 


Mobilization  Resources  Scheduling  Program."  This  previous  work  was  not 
designed  specifically  for  implementation  on  ITMS  and  for  this  reason  does  not 
address  the  Army  training  scheduling  problem  in  its  full  complexity  as  a 
multi-schedule,  multi-echelon  problem.  Further,  the  previous  efforts  address 
many  but  not  all  of  the  training  scheduling  constraints  important  in  a 
practical  system. 

The  following  discussion  is  organized  into  three  sections.  First,  the 
Army  training  scheduling  problem  is  described.  Second,  the  use  of  simulated 
annealing  as  a  solution  for  the  scheduling  problem  is  illustrated.  The  third 
section  presents  conclusions  and  recommendations  emerging  from  the  application 
of  this  approach.  The  computer  program  listing  and  a  sample  program  run  with 
data  tables  can  be  found  as  appendices  to  the  report. 


DESCRIPTION  OF  ARMY  UNIT  TRAINING  SCHEDULING  PROBLEM 
Types  of  Schedules  for  Different  Echelons 

The  training  scheduling  problem  is  defined  here  for  all  echelons  within  an 
Army  division  (see  ADEA ,  1985).  The  echelons  within  an  Army  division  can  be 
ordered  from  smallest  to  largest:  company  (about  150  soldiers);  battalion 
(about  750  soldiers);  brigade  (about  3,000  soldiers);  division  (about  15,000 
soldiers).  There  are  three  different  training  calendars/schedules  that  differ 
primarily  in  how  far  into  the  future  needs  are  projected.  These  training 
calendars/schedules  have  been  denoted  "Long-Range  Calendar"  with  projections 
up  to  24  months  in  the  future,  "Short-Range  Calendar"  with  projections  from 
three  to  six  months  in  the  future,  and  "Near-Term  Training  Schedules"  that 
extend  from  three  to  six  weeks  in  the  future.  Different  echelons  have  primary 
responsibility  for  preparing  and  updating  the  three  types  of  calendars/ 
schedules  but  the  focus  is  at  the  battalion  level.  The  relationships  between 
echelons  and  the  three  types  of  calendars/schedules  are  shown  in  Figure  1. 

The  strict  hierarchical  organizational  structure  of  the  Army  gives  a  top- 
down  character  to  the  process  of  training  scheduling.  Higher  echelons  may 
prescribe  specific  training  or  other  activities.  Major  training  events  that 
originate  at  the  division  or  higher  level  are  first  placed  on  the  Long-Range 
Calendar.  The  predominant  time  units  employed  in  the  Long-Range  Calendar  are 
weeks,  but  specifications  of  days,  such  as  holidays,  also  appear.  Division 
has  primary  responsibility  for  preparation  and  revision  of  the  Long-Range 
Calendar,  although  subordinate  brigades  and  battalions  may  also  be 
consulted.  Typically  the  interest  of  the  brigades  and  battalions  is  limited 
to  those  parts  of  the  overall  long-range  calendar  which  concern  them. 

Division  has  the  responsibility  for  overall  consistency  and  resolution  of 
conflicts  between  subordinate  units. 

The  Short-Range  Calendar  is  prepared  primarily  at  the  battalion  with  input 
from  the  brigade.  The  predominant  unit  of  time  employed  is  days.  The  Short- 
Range  Calendar  takes  mandated  activities  and  adds  them  to  the  Short-Range 
Calendar,  but  with  increased  specificity  and  detail.  Short-Range  Calendars 
are  coordinated  with  division.  However,  Short-Range  Calendars  are  ultimately 
subordinate  to  decisions  and  event  scheduling  occurring  at  higher  echelons. 


CALENDAR/ SCHEDULE 


Long-Range 

Calendar 

(1-2  years  ahead) 

Short-Range 

Calendar 

(3-6  months  ahead) 

\ 

Near-Term 

Training  Schedule 
(3-6  weeks  ahead) 

E 

Division 

A 

C 

l 

i 

H 

E 

Brigade 

A  ' 

I 

1 

V 

<r - 

A 

l 

L 

0 

Battalion 

A  N 

1 

1 

V 

^  N 
i  ! 
i  i 

V 

<r - 

l 

i 

1 

N 

Company 

1  \ 

> 

i  i 

f 

1  N 

- >  ■  recommendation 

- >  =  decision 

horizontal  lines  indicate  transfers  (or  recommended  transfers)  of  events 
between  calendars/schedules 


Figure  1.  The  Relationship  Between  Echelons  and  Schedules  for  ITMS  System 


Planning  for  the  allocation  of  training  resources  like  ranges,  anmunition, 
MILES  equipment,  and  training  devices  is  accomplished  on  Long-  and  Short-Range 
Calendars. 

Near-term  Training  Schedules  are  prepared  and  maintained  at  the  company 
level.  Training  schedules  depict,  on  a  weekly  basis,  specific  training 
activities  in  great  detail.  The  predominant  unit  of  time  employed  goes  down 
to  hours  and  even  minutes.  Many  activities  on  Training  Schedules  are  derived 
from  Short-Range  Calendars.  Training  Schedules  are  posted  for  the  purpose  of 
providing  information  to  the  members  of  the  company,  so  that  they  can  perform 
the  activities.  For  this  reason  Training  Schedules  contain  specific 
information  not  found  on  Short-Range  Calendars.  The  detailed  information 
typically  includes  precise  times,  locations,  trainers  and  trainees  involved, 
type  of  uniform,  references,  and  remarks.  The  Training  Schedule  for  each 
company  is  coordinated  at  the  level  of  the  parent  battalion.  Possible 
inconsistencies  within  a  schedule  are  identified  and  conflicts  between 
company-level  Training  Schedules  are  resolved.  A  typical  conflict  might 
involve  two  companies  that  request  the  same  battalion  classroom  for  the  same 
time  period. 

The  overall  scheduling  task  is  typified  by  the  downward  inheritance  of 
events  and  activities  prescribed  by  higher  organizational  echelons,  coupled 
with  additions,  augmentation,  and  greater  specificity  at  each  successively 
lower  level.  There  is  an  iterative  process  of  allocating  time  to 
activities.  Conflicts  in  allocation  are  resolved  at  the  echelon  just  above 
the  conflict.  Activities  scheduled  vary  in  terms  of  command  priority, 
resource  requirements,  relationships  to  other  activities,  and  size.  The  size 
of  scheduled  activities  may  vary  from  a  brigade  level  field  training  exercise 
to  individual  level  skill  training  on  specific  tasks  like  first  aid. 

One  practical  aspect  of  the  Army  training  scheduling  problem  that  is 
important  to  appreciate  is  the  necessity  for  frequent  rescheduling.  For  a 
variety  of  reasons,  activities  dictated  by  higher  echelons  often  preempt 
activities  scheduled  on  company-level  Training  Schedules  or  unanticipated 
circumstances  disrupt  Training  Schedules,  even  after  the  company  level 
activities  have  been  approved  and  considered  final.  Thus,  at  the  company 
level  rescheduling  is  common  and  requires  decisions  regarding  which  company- 
level  training  activities  to  reschedule  as  soon  as  possible,  which  ones  to 
postpone,  and  which  ones  to  eliminate.  Assistance  with  rescheduling  company- 
level  training  activities  is  a  necessary  practical  feature  for  an  automated 
scheduling  system.  When  carrying  out  the  rescheduling  of  activities,  an 
automated  system  should  minimize,  as  much  as  possible  changes  to  existing 
calendars  and  schedules. 

Types  of  Scheduling  Constraints 

There  are  distinct  classes  of  scheduling  constraints  that  shape  Army 
training  calendars  and  schedules.  These  contraints  influence  scheduling 
decisions  differently  and  vary  in  their  relative  priority  for  being  met. 
Satisfaction  of  relevant  constraints  serves  as  a  useful  criterion  for  judging 
the  quality  of  training  calendars.  That  is,  relatively  "good"  schedules 
violate  few  scheduling  constraints,  while  relatively  "poor"  schedules  violate 
many  contraints.  Thus,  constraint  violations  can  be  used  in  an  automated 


system  to  construct  a  "cost  function"1  for  alternative  calendars  generated  by 
the  computer.  These  constraints,  described  below,  relate  to:  time 
availability,  downward  inheritance,  command  priorities,  inter-schedule 
compatibility  and  intra-schedule  compatibility. 

Time  availability.  The  most  basic  factor  affecting  scheduling  is  time 
available  for  training.  A  sufficient  amount  of  time  to  accommodate  all  of  the 
training  that  ideally  needs  to  be  performed  simply  does  not  exist.  This  means 
that  some  desirable  training  activities  must,  of  necessity,  be  left  out  of  the 
Training  Schedule  thereby  reducing  the  quality  or  increasing  the  cost  of  a 
schedule.  Further,  training  activities  vary  in  their  difficulty  for 
scheduling  based  upon  the  length  of  time  required  for  completion.  Longer 
activities  are  more  difficult  to  schedule  whereas  activities  of  short  duration 
can  be  fit  in  more  easily.  Thus,  other  factors  remaining  constant,  those 
activities  using  more  time  can  be  considered  "more  expensive"  if  they  cannot 
be  fit  into  the  schedule.  Therefore,  if  it  becomes  impossible  to  include 
these  longer  tasks  in  the  Training  Schedule,  their  omission  will  add  more  to 
the  cost  function  than  the  omission  of  shorter  duration  activities. 

Downward  inheritance.  Activities  or  events  are  often  fixed  at  specified 
times  in  the  calendars  and  schedules  by  higher  echelons  and  inherited 
downward.  Thus,  lower  echelons  inherit  tasks  or  events  specified  by  higher 
echelons.  Such  activities  may  be  assigned  a  specific  time  or  not.  If  times 
are  specified,  then  lower  level  calendars  and  schedules  must  maintain  the 
times  established  by  higher  echelons.  Otherwise  the  lower  echelons  can  assign 
the  activities  to  times.  Activity  times  may  also  be  mandated  in  terms  of 
fixed  blocks  of  time.  Subsequent  scheduling  of  activities  at  a  given  echelon 
must  be  accomplished  without  alteration  of  activities  that  have  been  inherited 
from  superordinate  echelons.  In  addition,  activities  can  be  fixed  at  the 
current  echelon.  This  means  that  all  activities  must  be  scheduled  without 
altering  these  activities  fixed  at  the  current  echelon  as  well  as  additional 
activities  that  may  have  been  inherited  from  above.  When  conflicts  arise  that 
cannot  be  resolved,  and  activities  remain  unscheduled,  cost  is  incurred. 

Command  priorities.  The  training  priorities  of  commanders  or  their 
designated  representatives  at  each  organizational  level  differ  and  must  be 
taken  into  account  in  the  development  of  calendars  and  schedules.  In  the  case 
of  conflict  in  priorities  for  special  training  activities,  the  command 
priorities  of  higher  echelons  predominate  over  priorities  of  commanders  at 
subordinate  echelons,  although  communication  between  echelons  may  be  possible 
to  resolve  differences.  Under  some  conditions,  particular  units  may  be  given 
higher  priorities  than  other  units  for  all  training  activities  and 
resources.  This  situation  might  occur,  for  example,  when  some  units  must  be 
prepared  to  mobilize  more  quickly  than  others. 


^  cost  function  produces  numbers  that  can  be  used  to  judge  the  relative 
quality  of  schedules.  These  numbers  should  not  be  taken  literally  as  budget 
costs  in  dollars  and  cents  for  accomplishing  training. 


Inter-schedule  compatibility.  Since  company-level  units  each  have  their 
own  Training  Schedules,  conflicts  can  arise  between  Training  Schedules  for 
different  units.  The  most  frequent  source  of  conflicts  arises  from 
requirements  for  scarce  training  resources.  Resource  requirements  fall  into 
two  categories:  expendable  resources  such  as  ammunition  and  gasoline,  and 
renewable  resources  such  as  training  facilities  and  equipment.  Expendable 
resources  are  diminished  in  amount  as  a  result  of  use,  while  renewable 
resources  are  not.  Conflicts  for  expendable  resources  arise  from  shortages  in 
supply.  Eliminating  expendable  resource  conflict  requires  increasing  supplies 
or  decreasing  demands.  Conflicts  for  renewable  resources  arise  when  demand  at 
a  particular  time  exceeds  availability.  Thus,  renewable  resources  may  be 
scarce  at  one  time  but  not  another  depending  upon  the  timing  of  demands.  In 
this  case,  it  is  possible  to  eliminate  the  conflict  by  reassigning  the  times 
given  to  competing  activities  in  different  Training  Schedules. 

Intra-schedule  compatibility.  Conflicts  can  arise  in  the  scheduling  of 
events  within  a  unit's  Training  Schedule.  These  conflicts  may  arise  when 
there  are:  1)  temporal  relationships  between  events,  2)  temporal  requirements 
for  specific  events,  or  3)  restrictions  on  the  use  of  particular  time  blocks 
for  training.  A  frequent  temporal  relationship  between  events  occurs  when 
training  activities  serve  as  prerequisites  for  other  activities  and  must  be 
trained  ahead  of  the  other  activities  yielding  a  precedence  relationship. 
Violating  such  temporal  relationships  between  events  creates  conflict  within  a 
Training  Schedule.  In  other  cases,  specific  training  activities  must  occur 
together,  producing  synchronous  or  co-occurrence  constraints  for  scheduled 
activities.  Other  temporal  relationships  between  events  are  also  possible, 
such  as  activities  that  must  occur  contiguously.  Temporal  requirements  for 
specific  events  occur  when  activities  have  particular  time-related 
requirements,  such  as  darkness  for  training  of  night  vision  devices.  The 
above  temporal  constraints  may  be  established  by  commanders  or  pre-established 
in  a  data  base.  The  data  base  may  use  doctrine,  policy,  and  logical  necessity 
as  criteria  for  temporal  constraint  relationships. 

Restrictions  on  time  blocks  for  training  generally  occur  at  division 
level.  Time  is  often  blocked  into  groups  of  weeks  labeled  red,  green,  and 
yellow  time  that  indicate  the  priority  of  training  activities  for  subordinate 
units  during  a  given  block  of  time.  In  green  time,  training  activities  and 
events  have  priority  for  a  unit,  while  in  red  time  garrison  support  activities 
have  priority.  During  yellow  time  (when  this  block  exists)  training 
activities  have  an  intermediate  priority.  Intra-schedule  conflicts  are 
created  when  restrictions  on  the  use  of  blocks  of  time  are  violated. 


Input/Output  Requirements  for  Scheduling 

An  automated  system  for  scheduling  can  be  divided  into  two  distinct 
parts:  an  algorithmic  and  a  human  interface  component.  The  algorithmic 
component  employs  an  optimization  methodology  designed  to  minimize  the  cost 
function.  Thus,  the  algorithmic  part  must  be  based  on  an  appropriate  problem 
definition  and  cost  function.  The  human  interface  component  involves  program 
input  and  output. 


While  the  input  and  output  requirements  are  vital  for  any  operational 
implementation  of  an  automated  scheduling  system,  the  algorithmic  aspects  are 
a  natural  prerequisite.  Thus,  the  primary  focus  of  this  paper  is  on  the 
algorithmic  aspect  of  the  problem,  including  definition  of  the  problem  and 
description  of  the  algorithm.  The  general  feasibility  of  the  approach  is 
tested  using  an  initial  implementation  of  algorithm  concepts.  However,  a 
brief  discussion  of  requirements  for  input  and  output  is  presented  first  in 
order  to  provide  an  operational  view  of  the  applications  system. 

The  primary  requirement  for  input  to  and  output  of  a  scheduling  system  is 
that  it  be  "user  friendly".  In  order  to  create  a  practical  system  that  will 
be  used  within  Army  units,  it  is  important  to  keep  program  commands  and  data 
entry  as  simple  and  easy  to  learn  as  possible.  In  addition,  the  scheduling 
system  should  generate  output  information  including  summary  reports,  tailored 
to  specific  users'  needs.  In  order  to  facilitate  user  friendliness  and 
generate  useful  summary  reports,  the  input/output  component  of  the  scheduling 
system  will  employ  a  relational  data  base  management  system  (DBMS).  A 
relational  DBMS  system  is  designed  to  minimize  input-output  requirements  for 
program  users.  A  possible  criterion  of  scheduler  user  friendliness  at  the 
unit  level  is  that  no  dedicated  personnel  are  required. 

Input  to  the  automated  scheduling  system  will  be  facilitated  by  a  menu- 
driven  database  sub-system  containing  tables  or  lists  of  training  activities 
and  events.  These  lists  of  training  activities  can  be  linked  to  lists  of 
resource  requirements  for  training  activities.  These  lists  will  reduce  data 
entry  requirements  by  allowing  users  to  select  items  from  a  list  in  lieu  of 
entering  new  data.  Ideally,  the  system  will  also  generate  reminders  to 
program  operators  about  those  training  activities  that  should  be  periodically 
trained.  These  reminders  may  be  generated  from  an  adjunct  system  that  records 
or  predicts  training  proficiency  over  time. 

Another  important  input/output  feature  of  an  automated  scheduling  system 
is  feedback  to  users  regarding  scheduling  failures.  It  will  often  be 
Impossible  to  produce  a  set  of  Training  Schedules  that  completely  accommodates 
a  highly  constrained  problem.  The  user  needs  to  be  informed  of  scheduling 
failures  and  the  reasons  for  each  failure  so  that  appropriate  action  can  be 
taken.  For  example,  it  may  be  impossible  to  schedule  a  Field  Training 
Exercise  due  to  the  shortage  of  a  renewable  resource  like  MILES  equipment. 

This  shortage  is  potentially  solvable  by  reallocating  the  timing  of  events. 

On  the  other  hand,  the  shortage  of  an  expendable  resource  like  fuel  is  not 
solvable  unless  additional  expendable  resources  are  obtained.  If  users  are 
informed  of  the  reasons  that  events  remained  unscheduled,  they  may  be  able  to 
take  appropriate  action  to  improve  schedules  (e.g.,  increase  resources,  or 
modify  priorities). 

The  most  basic  reports  required  by  an  automated  scheduling  system  are  the 
Long-  and  Short-Range  Calendars  and  Training  Schedules.  Updated  Calendars  and 
Training  Schedules  should  be  produced  and  distributed  as  modifications  are 
made  and  approved.  Additional  reports  that  highlight  changes  in  scheduled 
activities  and  changes  in  resource  requirements  may  be  particularly  helpful. 
For  example,  if  a  renewable  resource  (e.g.,  classroom)  is  no  longer  required 
by  one  unit  at  a  particular  time,  a  report  could  highlight  this  fact,  noting 


new  availabilities  of  renewable  resources.  Reports  related  to  resource 
requests  (e.g.  ammunition)  and  resource  utilization  could  also  be  produced 
(see  ADEA,  1985).  For  renewable  resources,  it  may  be  helpful  for  report 
resource  usage  as  a  function  of  unit  and  time. 

Of  particular  interest  at  higher  echelons  in  the  Army  is  the  issue  of 
training  cost.  Reports  can  be  extended  to  cover  training  cost  as  a  function 
of  resource  utilization  and  resource  cost.  Such  reports  would  require 
appropriate  "cost  models"  that  take  into  account  the  type  of  unit,  the  unit 
training  location  and  additional  relevant  factors.  Such  training  cost  models 
would  be  based,  at  least  in  part,  on  Training  Calendars  and  Schedules.  For 
this  reason,  the  automated  scheduling  work  reported  here  should  contribute  to 
the  automation  of  reports  related  to  training  cost. 


USE  OF  SIMULATED  ANNEALING  TO  SOLVE  THE  SCHEDULING  PROBLEM 
Alternative  Approaches 

In  the  operations  research  literature,  linear  programming  is  a  method  that 
is  commonly  employed  to  solve  optimization  problems  for  organizations. 
Optimization  problems  in  organizations  are  varied.  For  example,  a  business 
may  wish  to  identify  the  levels  and  kinds  of  inventory  that  maximize  profit, 
or  combinations  of  inputs  that  maximize  a  measure  of  efficiency,  etc.  Integer 
programming  is  a  variant  of  linear  programming  that  is  applied  to  standard 
scheduling  problems  (Garfinkel  &  Nemhauser,  1972).  Integer  programming  uses  a 
solution  vector  restricted  to  integers  while  linear  programming  uses  a 
continuous  solution  vector.  Integer  programming  is  applied  to  standard 
scheduling  problems  since  the  decision  is  a  dichotomous  (schedule/not 
schedule)  one,  which  is  a  special  case  of  integer  programming.  Integer 
programming  problems  can  be  solved  by  sequential  linear  programming  runs  in 
which  improved  optimizations  to  an  integer  solution  are  made  at  each  step. 

The  iterative  nature  of  integer  programming  makes  it  a  less  efficient  approach 
than  linear  programming,  while  integer  programming  is  not  necessarily  too 
inefficient  to  solve  Army  scheduling  problems,  efficiency  is  a  concern  for 
large  problems. 

The  primary  drawback  to  the  use  of  standard  integer  programming  methods 
has  to  do  with  the  heterogeneous  nature  of  the  Army  scheduling  problem.  The 
variety  of  constraints  involved  in  the  Array  scheduling  problem  means  that  a 
classical  integer  programming  solution  does  not  exist.  In  other  words,  an 
integer  programming  solution  will  not  be  able  to  handle  simultaneously  all  of 
the  types  of  constraints  required  by  the  Army  problem  and  consequently  will 
ignore  some  of  them.  In  an  Army  operational  environment,  it  is  likely  to  be 
more  problematic  to  obtain  an  "optimal"  solution  that  ignores  some  essential 
Array  constraints,  than  to  obtain  a  good  but  not  "optimal"  solution  that 
handles  all  of  the  essential  types  of  constraints.  Simulated  annealing  was 
selected  as  a  useful  candidate  methodology  because  it  can  handle  all  of  the 
essential  types  of  constraints  and  still  provide  a  "good"  solution. 
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Description  of  Simulated  Annealing 


A  methodology  for  approaching  optimization  is  needed  to  solve  the  Army 
training  schedule  problem.  Such  a  methodology  provides  (a)  a  definition  of 
what  constitutes  a  good  schedule,  (b)  a  way  of  measuring  numerically  how  good 
a  schedule  is,  and  (c)  a  way  to  search  to  find  numerically  good  schedules. 
Simulated  annealing  (Kirkpatrick,  Gelatt  &  Vecchi,  1983)  was  selected  as  an 
appropriate  method  because  of  the  match  between  the  capabilities  of  the 
methodology  and  the  characteristics  of  the  scheduling  problem.  Simulated 
annealing  operates  by  analogy  to  the  metalurgy  process  which  strengthens 
metals  through  successive  heating  and  cooling.  The  method  is  highly  dependent 
upon  stocastic  processes.  In  applying  simulated  annealing  to  scheduling,  the 
concept  of  temperature  is  defined  in  terms  of  a  quantitative  objective 
function,  termed  a  cost  function.  The  approach  is  promising  with  respect  to 
the  Army's  unit  training  scheduling  problem  because  it  can  handle  large 
problems.  The  training  scheduling  problem  for  an  entire  Army  division  is 
large.  In  addition,  it  can  handle  virtually  any  type  of  constraint.  This 
feature  is  important  because  the  Army  training  scheduling  problem  includes  a 
wide  variety  of  constraints.  The  approach  is  flexible  in  the  sense  that 
constraints  can  be  changed  or  added  and  the  method  can  still  work. 

Flexibility  is  important  because  frequent  modification  is  expected  in  an 
operational  environment. 

Another  feature  of  simulated  annealing  that  matches  the  Army  training 
scheduling  problem  is  size  of  the  solution  space.  Application  of  simulated 
annealing  is  appropriate  when  multiple  "good"  solutions  are  acceptable  as 
opposed  to  a  uniquely  "best"  solution.  The  training  scheduling  problem 
matches  this  description.  There  is  a  relatively  large  class  of  "good" 
schedules  and  the  goal  is  to  find  one  of  the  schedules  in  this  class.  The 
solution  space  can  be  visualized  geometrically  as  ridges  and  valleys,  with 
multiple  good  solutions  found  along  the  valleys.  Using  this  analogy 
increasing  height  corresponds  to  increasing  cost  or  disutility.  The  "goal"  is 
to  not  necessarily  find  the  lowest  point  but  a  solution  in  a  valley.  The 
"best"  possible  solution  is  not  likely  to  be  much  better  than  other  solutions 
in  the  "good"  class. 

Further,  for  large  combinational  problems  like  the  scheduling  problem,  it 
becomes  impossible  to  check  all  possible  combinations,  in  search  of  the  one 
combination  that  minimizes  the  cost  function,  because  of  time  requirements. 

The  time  requirements  for  such  problems  increase  exponentially  with  N.  (i.e., 
number  of  activities  to  be  scheduled).  Rather  than  search  all  combinations, 
optimization  methods  use  heuristics  to  minimize  cost  functions.  Such 
heuristics  can  be  generally  classified  as  either  "di vide-and-conquer"  or 
iterative  improvement  strategies  (Kirkpatrick,  Gelati  &  Becchi,  1983). 
"Divide-and-conquer"  or  decomposition  strategies  partition  a  large  problem 
into  smaller  ones  that  can  be  solved  separately.  The  separate  solutions  then 
must  be  recomposed  together  to  provide  an  overall  solution.  This  approach  is 
most  appropriate  when  sub-problems  are  naturally  disjoint  so  that  the  sub¬ 
problem  solutions  can  be  generated  and  then  combined  to  form  an  overall 
solution  without  excessive  distortion.  For  iterative  improvement,  a  standard 
rearrangement  operation  is  applied  until  a  combination  is  found  that  improves 
the  cost  function.  Typically,  the  rearranged  configuration  then  becomes  the 
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new  configuration.  The  standard  rearrangement  operation  i3  repeated  until  no 
further  improvement  in  the  cost  function  can  be  found.  This  type  of  search 
may  get  stuck  in  a  local  but  not  global  minimum.  For  this  reason,  the 
iterative  improvement  search  is  often  repeated  using  different  random  starting 
points.  The  simulated  annealing  method  contains  characteristics  of  both 
"divide-and-conquer"  and  iterative  improvement  strategies. 

Finally,  the  simulated  annealing  algorithm  does  not  require  a  set  computer 
time  to  obtain  a  solution.  The  solution  will  get  better  on  the  average  the 
longer  the  program  runs.  A  computer  run  can  be  terminated  when  a  point  of 
diminishing  returns  is  observed. 

The  simulated  annealing  heuristic  operates  by  analogy  to  annealing  in 
physical  systems.  Annealing  in  a  physical  system  involves  repeated  heating 
and  cooling  of  liquids  or  solids.  When  a  liquid  is  hot  there  is  a  rapid 
random  movement  of  the  molecules  making  up  the  liquid.  Heating  a  liquid 
increases  the  rapidity  of  the  random  movement  of  molecules.  By  contrast, 
cooling  a  liquid  slows  the  random  movement  of  molecules  until  they  reach  the 
point  where  they  are  frozen  in  place.  Molecules  frozen  in  place  are 
considered  "cold." 

As  applied  to  a  scheduling  system,  the  molecules  are  activities  or  events 
that  must  be  scheduled.  The  concept  of  temperature  is  linked  to  the  cost 
function,  and  refers  to  the  degree  of  random  assignments  of  activities  to  time 
slots.  High  temperature  corresponds  to  extensive  random  assignment  of 
activities  to  times.  High  temperature  is  associated  with  high  values  of  the 
cost  function,  low  temperature  is  associated  with  low  values  of  the  cost 
function.  High  temperature  means  that  random  assignment  of  activities  to 
times  is  permitted  no  matter  how  large  the  cost  function  gets  as  a  result  of 
the  assignments.  On  the  other  hand,  cold  temperature  corresponds  to  minimal 
random  assignments  of  activities  to  times,  namely,  assignments  that  reduce  or 
at  least  do  not  increase  the  cost  function. 

The  operation  of  the  simulated  annealing  heuristic  involves  successively 
"heating"  and  "cooling"  the  system  in  search  of  a  "good"  schedule  defined  by  a 
low  cost  function.  The  process  of  successively  "heating"  and  "cooling"  the 
system  is  accomplished  to  avoid  the  problem  of  getting  stuck  in  local 
minimums.  The  problem  of  getting  stuck  in  local  minimums  is  a  common  one  for 
problems  based  on  iterative  improvement  (e.g.,  greedy  algorithms).  The 
simulated  annealing  heuristic  requires  the  creation  of  an  appropriate 
"annealing  schedule"  involving  the  extent  and  frequency  of  heating  and 
cooling.  An  advantage  of  the  simulated  annealing  heuristic  is  that  annealing 
schedules  help  overcome  the  local  minimums  problem. 

In  addition  to  creating  an  appropriate  annealing  schedule,  an  algorithm  is 
necessary  to  cool  the  system.  (Creating  a  hot  system  is  not  difficult  since 
heating  simply  entails  unconstrained  random  assignment  of  activities  to 
times.).  Cooling  the  system,  however,  requires  development  of  an  algorithm, 
created  especially  for  the  problem  at  hand,  that  constrains  the  random 
assignments  permitted  to  those  producing  successively  lower  values  of  the  cost 
function,  as  the  system  is  cooled.  In  order  to  "cool"  a  scheduling  system, 
those  tasks  that  have  the  greatest  potential  for  increasing  the  cost  function 


are  scheduled  first  before  the  schedule  gets  too  full  to  include  them.  Then 
tasks  that  have  less  potential  for  increasing  the  cost  function  are 
successively  scheduled.  Unconstrained  tasks  that  minimally  add  to  the  cost 
function  are  scheduled  last.  This  strategy  increases  the  probability  that 
important  activities  and  constraints  are  accommodated  in  the  resultant 
schedules.  The  above  ordered  scheduling  builds  a  "divide-and-conquer" 
strategy  into  the  cooling  algorithm.  That  is,  the  overall  problem  of 
scheduling  is  partitioned  into  a  series  of  smaller  sub-problems  requiring 
scheduling  sub-sets  of  activities  in  order  of  their  importance. 

Illustrative  Application  of  Simulated  Annealing 

A  simulated  annealing  heuristic  approach  to  the  Army  training  scheduling 
problem  was  implemented  in  a  prototype  test  program  to  explore  its 
feasibility.  The  test  program  was  evaluated  according  to  (a)  computer 
efficiency  (e.g.,  time  requirements,  memory  requirements),  Cb)  the  face 
validity  of  the  training  schedules  that  are  produced,  and  (c)  flexibility  of 
the  program  to  handle  additional  requirements.  In  addition,  the  prototype 
test  program  will  then  be  used  to  "fine  tune"  the  design  of  the  heuristic  in 
terms  of  the  selection  and  operation  of  (a)  the  cost  function,  (b)  annealing 
schedules,  and  (c)  types  of  constraints. 

Description  of  the  Test  Program.  The  Army  scheduling  problem  was 
delimited  by  focusing  on  scheduling  at  the  battalion  level.  This  level  was 
selected  because  it  contains  scheduling  features  from  all  echelons.  If  the 
annealing  heuristic  is  effective  at  this  level,  one  can  assume  that  it  can  be 
applied  at  all  levels  with  the  appropriate  modifications  for  each  echelon. 

All  five  companies  within  a  single  battalion  are  essentially  scheduled 
simultaneously  in  the  test  program.  These  five  companies  inherit  training 
activities  and  events  from  the  Long-  and  Short-Range  Calendar  created  at 
higher  echelons.  The  test  program  uses  one-hour  units  of  time  for  activities 
and  forty-hour  weeks.  A  final  program  will  require  smaller  time  units  and  the 
potential  for  longer  weeks.  The  test  program  employs  a  very  simple  annealing 
schedule.  Activities  are  assigned  importance  weights  tor  decreasing 
"temperature"  values  (using  the  simulated  annealing  analogy).  These  weights, 
listed  in  order  from  high  to  low  importance  are  based  upon  whether  they:  (1) 
appear  as  training  activities  on  the  Short-range  Calendar,  (2)  require 
resources,  (3)  have  high  commander  priority,  (4)  have  a  temporal  relationship, 
or  (5)  have  none  of  these  characteristics,  respectively.  Conveniently,  these 
same  numerical  assignments  serve  as  the  basis  for  the  cost  function,  described 
in  detail  below.  The  system  effects  "cooling"  by  attempting  to  schedule 
activities  with  high  values  first. 

The  test  program  employs  all  of  the  important  categories  of  scheduling 
constraints:  (a)  inheritance  of  activities  from  higher  echelons  and  "fixing" 
activity  times,  (b)  interschedule  conflicts  of  both  renewable  and  expendable 
resources,  (c)  company-level  training  activity  priorities,  (d)  different  unit 
priorities  assigned  to  different  companies,  and  (e)  intra-schedule  conflicts 
based  on  temporal  constraints  for  activities  (i.e.,  before/after,  immediately 
before/immediately  after,  and  temporal  ordering  of  sequences  of  contiguous 
activities).  The  constraints  that  were  considered  most  important  were 


included  in  the  test  program.  Any  exclusions  were  simply  due  to  limitations 
on  time  and  resources,  and  can  be  added  as  required  for  an  applications 
version  of  the  program. 

The  simulated  annealing  test  program  was  written  in  FORTRAN  77  on  a  VAX 
11/780  computer.  The  FORTRAN  code  for  the  test  program  is  provided  at 
Appendix  A.  An  overview  of  the  data  structures  and  flow  of  control  of  the 
simulated  annealing  test  program  is  shown  in  Figure  2.  Blocks  A  through  E  in 
Figure  2  depict  five  data  structures  containing  the  necessary  input  infor¬ 
mation.  An  example  of  data  input  files  and  output  schedules  for  an  example 
problem  is  provided  in  Appendix  B  and  is  discussed  later  in  this  section. 

It  should  be  emphasized  that  the  input  files  and  output  schedules  do  not 
represent  files  as  they  would  be  seen  by  users  in  a  final  scheduling 
program.  Users  of  an  implementation  version  will  use  input/output  presented 
by  a  relational  DBMS.  The  DBMS  input/output  will  interface  with  the  FORTRAN 
code  that  implements  the  simulated  annealing  heuristic. 

Initial  Company-level  Training  Schedules  developed  by  company  commanders 
are  represented  in  simplified  form  in  Blocks  F,  G,  and  H  of  Figure  2.  These 
schedules  identify  tasks  for  the  week,  assign  priorities  to  the  tasks  ("high" 
versus  "regular"  priority;  priorities  may  vary  across  companies),  and  place 
activities  in  temporal  order  consistent  with  prerequisite  relationships 
(before/after).  These  initial  schedules  represent  recommendations  from  a 
lower  echelon  for  training  schedules  that  are  passed  upward  (See  Figure  1). 

At  battalion  level,  resourcing  is  accomplished  and  conflicts  are  resolved.  As 
depicted  in  Figure  2,  this  conflict  resolution  is  accomplished  by  the  passage 
of  the  initially  recommended  schedules  to  the  simulated  annealing  algorithm  in 
Block  I.  The  simulated  annealing  algorithm  produces  the  final  set  of  training 
schedules  for  the  companies  within  a  battalion.  In  addition,  lists  of 
activities  from  the  initially  recommended  schedules  that  could  not  be 
accommodated  in  the  final  schedules  are  given  along  with  their  level  of 
importance  as  defined  by  their  contribution  to  the  cost  function. 


2 

An  important  human  factors  problem  was  identified  in  previous  automated 
scheduling  research  (see  Medeiros  &  Yang,  1983a,  1983b)  which  will  be 
corrected  in  future  work.  Figure  2  depicts  five  separate  input  files 
containing  lists  of  activities  and/or  resources.  These  files  were  separated 
because  they  are  conceptually  distinct,  and  have  parsimonious  structures 
separately.  Different  files  contain  common  subsets  of  activities  and/or 
resources.  In  previous  scheduling  programs,  users  were  required  to  enter  the 
same  items  more  than  once  in  separate  files.  This  procedure  frequently 
produced  data  entry  errors,  due  to  heavy  recall  requirements  for  users  who  had 
to  remember  previously  entered  lists,  and  spelling  variations  of  identical 
list  items.  These  problems  will  be  removed  by  having  lists  stored  in  some 
common  data  base  to  the  extent  possible.  In  addition,  lists  that  are  entered 
would  only  be  typed  in  once  by  the  user.  Input  would  include  automatic 
retrieval  of  previously  entered  lists  for  subsequent  use  in  the  context  of 
different  files,  avoiding  duplicate  entry  errors. 
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Figure  2.  Data  Structures  and  Flow  of  Control  for  Simulated  Annealing  Test  Program 
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The  cost  function  for  the  test  program  was  formulated  on  the  assumption 
that  it  is  costly  to  fail  to  schedule  activities.  Further,  it  is  more  costly 
to  fail  to  schedule  longer  than  shorter  activities.  Thi  is  an  idealization. 

Specifically,  let  C_  represent  cost  and  jC  represent  weights  reflecting  the 
importance  category  (originated  at  higher  echelon,  requiring  resources, 
company  command  priority,  having  temporal  relationship,  or  regular  activity) 
of  unscheduled  activities.  Let  U.  represent  the  time  associated  with 
unscheduled  activities.  Let  represent  the  activity  number  among  jn 
unscheduled  activities  within  a  Training  Schedule,  and  let  i_  represent  the 
Training  Schedule  number  that  varies  from  1  to  _n,  the  number  of  Training 
Schedules.  Since  there  is  a  Training  Schedule  for  each  company,  there  are 
five  Training  Schedules  per  battalion  (j\  =  5).  Given  these  definitions,  the 
cost  function  can  be  written  by  Equation  1  as: 
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The  simulated  annealing  algorithm,  depicted  in  Block  I  of  Figure  2, 
iteratively  produces  candidate  sets  of  schedules.  It  employs  the  cost 
function  to  evaluate  the  schedule  sets  produced.  As  described  below,  when  the 
simulated  annealing  algorithm  is  unable  to  generate  substantially  better 
schedules,  it  outputs  both  the  Final  Schedule  Set,  shown  in  Block  K.  and  a 
table  of  activities  that  could  not  be  scheduled. 

Figure  3  details  the  working  of  the  simulated  annealing  scheduling 
algorithm.  A  general  description  of  each  of  the  primary  operations  within  the 
algorithm  is  given  below.  The  reader  is  directed  to  Appendix  A  for  the 
computer  code.  The  algorithm  takes  as  input  the  Initial  Company-level 
Training  Schedules  (and  the  data  tables,  Blocks  A  through  F,  shown  in  Figure 
2).  First,  in  Block  1  of  Figure  3,  some  temporary  storage  space  is  cleared 
and  other  programmatic  "housekeeping"  is  accomplished. 

In  Block  2  of  Figure  3  the  "cooling"  process  begins  with  the  highest 
temperature,  or  most-costly-to-leave-unscheduled  activities,  which  are  those 
designated  on  the  Short-range  Calendar.  Activities  are  taken  in  the  order 
they  appear  on  the  calendar,  implying  no  differential  importance  among  them. 
Activities  may  or  may  not  have  a  specified  day  and  time  for  execution 
prescribed  by  the  Short-range  Calendar.  If  an  activity  does  not  have  a 
specified  time,  first,  the  system  checks  to  see  if  the  activity  already 
appears  on  the  Initial  Schedule  for  the  company.  If  so,  the  activity  is 
locked  in  the  schedule  and  the  system  goes  on  to  the  next  activity  on  the 
Short-range  Calendar.  When  an  activity  is  locked,  it  can  no  longer  be  moved 
or  arbitrarily  removed  from  the  schedule  by  subsequent  scheduler  operations. 
When  an  activity  does  not  appear  in  the  Initial  Schedule  for  the  specified 
unit,  and  a  specified  time  is  not  given,  the  system  assigns  the  activity  to  a 
randomly  selected  time  and  locks  it.  In  the  case  where  a  specified  beginning 
time  exists  on  the  Short-range  Calendar,  the  system  checks  whether  the 
activity  already  is  present  in  the  schedule.  If  it  is,  it  may  be  at  the 
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Figure  3.  Operation  of  the  Simulated  Annealing  Scheduling  Algorithm 


correct  time  or  not.  If  it  is  not  at  the  correct  time  it  is  moved.  If  it  is 
not  in  the  schedule  it  is  inserted  and,  in  any  case,  locked.  Any  displaced 
activities  or  conflicts  among  Short-range  Calendar  activities,  such  as  two 
being  erroneously  assigned  to  the  same  start  time  for  the  same  company,  form 
the  Unscheduled  Activities  Table. 

The  algorithm  (Block  3)  then  considers  the  next  "hottest"  group  of 
activities;  those  which  require  resources  and,  therefore,  can  involve  inter¬ 
schedule  conflicts.  The  interim  schedules,  (i.e.,  the  Initial  Schedules 
undergoing  modification),  are  searched  for  activities  which  require 
resources.  For  each  such  activity,  the  Resource  Availability  Table  is 
checked.  If  the  resource  required  is  expendable  and  available,  the  amount 
remaining  is  reduced  by  the  required  amount  and  the  activity  is  locked.  If 
the  resource  needed  is  a  renewable  resource,  the  system  checks  whether  it  is 
available  at  the  required  time.  If  so,  the  activity  is  locked  and  adjustments 
are  made  to  the  availability  table.  If  a  resource  is  not  available  at  the 
needed  time,  the  algorithm  tries  to  exchange  the  time  of  the  activity  with 
other  unlocked  activities  where  the  resource  is  available.  If  the  activity 
can  be  moved  to  a  time  when  the  resource  is  available,  it  is  locked  there.  If 
resources  are  not  available  for  an  activity,  that  activity  gets  added  to  the 
Unscheduled  Activities  Table. 

In  Block  4  of  Figure  3,  the  algorithm  works  with  those  activities 
designated  as  Company-level  Training  Priorities.  Each  such  activity  already 
appearing  in  a  schedule  is  locked.  Those  that  appear  on  the  Unscheduled 
Activity  Table  of  the  unit,  unless  they  failed  to  be  scheduled  due  to  resource 
availability,  are  assigned  a  random  time  in  the  schedule  and  locked,  but  never 
displacing  a  locked  activity. 

Next,  in  Block  5  the  algorithm  works  with  those  activities  having  temporal 
relationships  which  produce  intra-schedule  conflicts.  Such  activities,  not 
previously  locked,  are  moved  around  in  the  schedule;  prerequisites  are  moved 
or  added  until  all  temporal  relationships  are  satisfied  and  the  corresponding 
activities  are  locked.  Basically,  the  algorithm  conducts  an  exhaustive  search 
for  situations  which  meet  the  temporal  relationship  of  the  activity  being 
processed.  Failure  to  accommodate  a  temporal  relationship  causes  that 
activity  to  be  removed  from  the  schedule  and  added  to  the  company's 
Unscheduled  Activities  Table. 

Finally,  the  algorithm  searchs  for  any  unused  time  (Block  6)  in  the 
schedules  and  fills  it  with  " low- temperature"  activities  on  the  Unscheduled 
Activity  Table.  The  cost  of  the  resulting  schedule  set  is  calculated  (Block 
7)  and  if  the  set  is  the  best  generated  so  far  (Block  8)  it  is  saved  (Block 
9),  otherwise  it  is  discarded. 

After  completing  an  iteration  of  the  simulated  annealing  scheduling 
process  the  algorithm  decides  (Block  10,  Figure  3)  whether  to  repeat  the 
process  again  from  the  Initial  Training  Schedules  and  data  structures  or 
not.  Crite-ia  for  this  decision  are  discussed  below  but  basically  involve 
specification  by  the  user  of  a  number  of  iterations  where  significant 
improvement  in  schedule  quality  ceases.  If  another  iteration  is  to  be 
executed,  system  control  passes  again  to  Block  1  of  Figure  3  and  the  Initial 


Set  of  Schedules  is  again  "cooled."  If  not,  then  the  best  schedule  set  and 
corresponding  Unscheduled  Activities  Table  is  output  and  the  system 
terminates . 

Operation  of  the  Test  Program.  Appendix  B  shows  a  sample  run  with 
complete  training  schedules  for  each  of  five  companies  at  each  successive 
stage  of  one  iteration.  To  illustrate  the  types  of  schedule  manipulations  the 
system  produces,  Table  1  shows  a  segment  extracted  for  Company  B  on  Monday  at 
each  of  the  six  stages  in  one  "cooling"  iteration. 

The  first  column  of  Table  1  shows  the  initial  schedule  for  Company  B 
produced  by  randomly  sampling  from  the  population  of  60  activities  without 
replacement  for  each  of  the  five  companies.  Three  activities  were  randomly 
selected  as  company-level  training  priorities  and  are  marked  with  an 
asterisk.  This  initial  schedule  can  be  considered  the  company-level  proposed 
training  schedule  that  is  forwarded  to  battalion  for  verification  and 
approval. 

The  second  column  shows  the  schedule  segment  after  activities  have  been 
inherited  from  the  higher  echelon  calendars.  As  shown  in  Table  1 ,  two 
activities  appear  at  the  required  hours  designated  by  the  Long-  and  Short-term 
schedules:  PT  and  its  necessary  immediate  successor,  PERS  HYGIENE.  Other 
activities  from  the  initial  schedule  are  inserted  either  at  their  designated 
times,  or,  if  times  are  not  specified,  at  randomly  selected  times.  (No 
activities  with  unspecified  times  occurred  in  this  schedule  segment).  All 
inherited  activities  are  fixed  in  the  schedule  for  the  duration  of  the 
iteration.  Activities  with  designated  times  will  not  be  moved  but  may  be 
removed  from  the  schedule  due  to  resource  or  temporal  constraint  violations. 
Those  with  randomly  chosen  times  may  be  moved  or  removed.  The  activities  that 
are  removed  are  placed  on  the  initial  unscheduled  activities  list  for  the 
company  being  processed.  In  this  segment,  MISSION  SUPPORT  and  ARCRFT  REC  1 
went  on  the  unscheduled  activity  list  for  Company  B. 

The  third  column  of  Table  1  shows  the  results  of  the  resource  allocation 
step.  FIRST  AID  4  requires  resource  INST  MOE  which  is  available  at  the  time 
the  activity  has  been  scheduled.  ID  TERR  FEAT  needs  resource  TR  ARA  2  which 
is  not  available  at  1500.  In  fact,  it  was  initially  available  at  this  time, 
but,  (as  shown  in  Appendix  B),  this  resource  was  allocated  at  1500  to  Company 

A,  which  has  a  higher  unit  priority.  Therefore,  ID  TERR  FEAT  is  exchanged  for 

AREA  MAINT  4,  and  a  time  is  found  at  which  the  needed  resource  is  available. 
Similarly,  activity  INSTALL  M 1 8  requires  TR  ARA  3  which  is  unavailable  on 
Monday  and  the  activity  is  moved  to  a  time  on  another  schedule  (not  shown) 
when  the  resource  is  available.  If  a  required  resource  were  unavailable  at 
any  time,  the  activity  would  be  added  to  the  unscheduled  activity  table.  When 
resource  allocations  have  been  completed,  all  activities  requiring  explicitly 
allocated  resources  become  fixed  in  the  schedule,  although  they  may  still  be 
removed  for  temporal  constraint  violations. 

At  the  fourth  step,  activities  designated  as  company-level  priorities  are 
fixed  in  the  schedule.  If  priority  activities  have  been  previously  scheduled 

(such  as  NERVE  AGNT3  in  Table  1),  they  are  fixed  in  the  schedule.  If  priority 

activities  are  not  currently  scheduled,  they  are  found  on  the  unscheduled 
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activities  list.  These  activities  are  then,  if  possible,  substituted  for 
activities  that  have  not  yet  been  fixed  in  the  schedule.  In  the  current 
implementation,  only  unscheduled  priority  activities  not  requiring  resources 
are  rescheduled.  These  priority  activities  are  then  fixed  so  that  they  cannot 
be  removed  during  this  iteration.  As  shown  in  column  four  of  Table  1,  MISSION 
SUPP,  which  had  been  removed  earlier,  is  rescheduled  due  to  commander 
priority.  The  priority  activity  ARCRAFT  REC  1  is  rescheduled  on  Friday  (see 
Appendix  B).  Activities  that  are  displaced  (in  this  case,  AREA  MAINT  4)  are 
added  to  the  unscheduled  activities  list. 

In  step  5,  temporal  relationships  are  resolved.  PERS  HYGIENE  which  was 
placed  in  the  schedule  at  the  inheritance  step  is  verified  as  an  immediate 
successor  to  PT.  If  it  had  not  been  present,  an  attempt  would  have  been  made 
to  add  it.  The  activity  MAINT  Ml 6  2  which  appears  later  on  Tuesday  in  the 
Company  B  schedule  requires  the  prerequisite  MAINT  M16  1 .  The  time  slot  with 
an  unfixed  activity  is  on  Monday  at  1600  so  the  prerequisite  MAINT  M16  1  is 
inserted.  Again,  the  displaced  activity,  as  well  as  any  activities  with 
temporal  relationships  that  cannot  be  satisfied,  are  added  to  the  unscheduled 
activities  table.  Finally,  if  any  unscheduled  blocks  of  time  exist  in  the 
schedule,  activities  would  be  selected  from  the  unscheduled  activities  table 
and  put  into  the  schedule.  No  such  change  occurred  in  the  particular  schedule 
segment  in  Table  1.  Thus,  final  schedule  shown  in  column  6  of  Table  1,  is 
identical  to  column  5. 

After  the  final  schedule  has  been  determined,  the  cost  is  computed.  As 
described  earlier,  the  cost  is  based  on  the  importance  and  duration  of  the 
unscheduled  activities.  If  an  activity  has  more  than  one  type  of  constraint, 
it  can  be  assigned  more  than  one  level  of  importance  when  the  activity  is 
unscheduled.  In  this  circumstance,  the  highest  importance  weight  is  assigned 
to  the  activity.  Costs  are  computed  for  each  unscheduled  activity  and  summed 
across  unscheduled  activities  for  a  company.  Then  company  costs  are  summed 
across  all  companies  in  a  battalion,  yielding  a  total  cost  value  for  the 
schedule  set  (see  Equation  1  and  Subroutine  Cost  in  Appendix  A). 

In  an  application  version  of  such  a  program,  normally  only  the  final 
schedule  set  would  be  of  interest  and  would  be  printed.  The  application 
programs  would  also  provide  the  unscheduled  activities  list,  along  with  the 
specific  reasons  for  exclusion,  so  that  manual  modifications  of  the  schedule 
could  be  made  by  users  as  they  deemed  necessary.  The  purpose  here  has  been  to 
provide  insight  to  the  reader  of  the  logic  and  inner  workings  of  the  current 
developmental  scheduling  system. 


Evaluation  of  Test  Program.  To  evaluate  the  simulated  annealing  test 
program,  hypothetical  scheduling  problems  were  devised  by  creating  the  five 
required  data  entry  tables  shown  in  Figure  2  (labelled  A-E).  The  "easy" 
scheduling  problem  had  (a)  an  average  of  four  activities  per  company  inherited 
from  the  higher  echelon  calendars,  (b)  a  total  of  ten  activities  (from  the  60 
possible)  which  required  one  or  more  of  four  different  resources,  (c)  ten 
percent  of  the  initially  scheduled  activities  designated  as  company-level 
commander  training  priorities,  and  (d)  five  activities  with  some  type  of 
temporal  relationship  to  another  activity.  The  "difficult"  scheduling  problem 
had:  (a)  an  average  of  12  inherited  activities  per  company,  (b)  30  activities 


requiring  one  or  more  of  12  types  of  resources,  (c)  20  percent  of  initially 
scheduled  activities  designated  as  priorities,  and  (d)  15  activities  in 
temporal  relationships  with  other  activities.  (The  complete  data  tables 
defining  the  difficult  problem  may  be  found  at  the  end  of  Appendix  B).  Final 
sets  of  schedules  for  the  five  companies  of  a  battalion  produced  by  the  test 
program  for  these  problems  appear  to  be  satisfactory  in  quality  and  face 
validity  although  a  formal  evaluation  from  subject  matter  experts  may  be 
required  for  further  substantiation. 

Figure  4  presents  results  showing  the  reduction  in  cost  functions  for 
problems  as  the  number  of  iterations  through  the  "cooling"  mode  increases. 
Results  are  presented  separately  for  an  "easy"  and  "difficult"  scheduling 
problem.  The  minimum  cost  function  prior  to  the  specified  iteration  is 
provided.  In  Figure  4  the  minimum  value  was  averaged  over  ten  cases  (i.e., 
ten  easy  problems,  ten  difficult  problems).  The  cost  values,  which  were 
larger  in  an  absolute  sense  for  the  difficult  problem,  have  for  both  problems 
been  mapped  onto  the  zero  to  one  interval  for  comparison.  As  the  improvement 
in  schedule  set  quality  was  negligible  after  the  seventieth  iteration,  the 
graph  is  truncated. 

An  important  finding  shown  in  Figure  4  is  the  rapid  rate  of  schedule  set 
improvement,  as  illustrated  by  the  rapid  decline  of  the  cost  function.  The 
improvement  in  the  cost  value  reaches  its  asymptotic  limit  quite  quickly,  well 
before  100  iterations.  This  trend  suggests  that  the  current  implementation  is 
relatively  efficient,  at  least  as  indicated  by  the  number  of  iterations 
necessary  to  achieve  a  stable  solution.  A  second  finding  is  the  very  similar 
rate  of  decrease  of  the  cost  function  for  both  easy  and  hard  problems. 

Run-time  statistics  were  also  examined  to  further  investigate  the 
performance  characteristics  of  the  test  program.  Running  on  a  VAX  11/780  for 
100  iterations,  the  easy  problem  required  an  average  of  about  four  minutes  of 
CPU  time.  The  difficult  problem  required  about  5.7  minutes  of  CPU  time.  Wall 
clock  time  was  about  ten  percent  more  when  saving  only  the  best  schedule  set 
at  any  given  point.  These  problems  used  a  maximum  of  98,000  bytes  of  memory, 
including  data  tables. 

Given  the  above  statistics,  it  may  be  feasible  to  run  scheduling  problems 
of  this  size  on  microcomputers.  However,  "overnight"  runs  would  probably  be 
required.  On  one  hand,  an  operational  program  could  make  more  efficient  use 
of  computer  resources  than  the  test  program.  In  addition,  it  is  unlikely  that 
real  problems  would  require  100  iterations.  On  the  other  hand,  actual  Army 
scheduling  in  practice  may  produce  much  larger  data  tables  which  could  be  so 
voluminous  that  it  might  be  impossible  to  enter  all  data  in  the  memory  of  a 
microcomputer  at  one  time.  This  situation  would  slow  the  program  operation 
down  considerably. 


CONCLUSIONS  AND  RECOMMENDATIONS 

The  simulated  annealing  heuristic  approach  to  the  Army  scheduling  problem, 
as  implemented  here,  appears  promising  in  several  respects.  First,  it  seems 
to  effectively  accommodate  the  highly  heterogeneous  and  unique  aspects  of  the 
problem.  The  ease  with  which  the  approach  fits  into  the  hierarchical 


Relative  coat  by  iteration  for  beat  schedule  seta  using  easy  and  difficult  scheduling  problems 


organizational  structure  of  the  Army  suggests  that  the  same  principles,  and 
perhaps  actual  sections  of  code,  could  be  adapted  to  scheduling  of  Long-  and 
Short-Range  Calendars  at  brigade  or  division  level.  In  addition,  difficult 
scheduling  problems  appear  to  be  handled  rather  efficiently  with  minimal 
increases  in  computer  resource  requirements.  As  such,  we  believe  that  the 
general  approach  is  worthy  of  continued  development. 

On  the  other  hand,  the  existing  program  has  serious  limitations  when 
viewed  from  the  perspective  of  what  will  ultimately  be  required  in  an 
applications  program.  The  test  program  incorporated  simplifying  assumptions 
such  as  using  hours  as  the  smallest  time  unit,  scheduling  one  week  at  a  time, 
and  tacitly  assuming  that  a  company  has  only  one  activity  at  any  given  time. 
Further,  certain  constraints  were  imposed  upon  the  nature  of  the  input  data. 
For  example,  activities  on  the  right  side  of  a  temporal  relationship  (i.e., 
constrained  to  occur  after  another  activity)  were  assumed  not  to  require 
resources  or  themselves  to  appear  on  the  left  side  of  a  temporal  relationship 
(i.e.,  constrained  to  occur  before  another  activity).  None  of  these 
simplifications  appear  to  be  unchangeable.  Rather,  they  have  been,  to  date, 
merely  temporary  limitations  that  were  subordinate  to  the  goal  of  testing  the 
overall  feasibility  of  the  method.  Modifications  to  incorporate  additional 
complexities  entail  both  development  time  and  probably  some  code  expansion.  A 
potential  limitation  of  the  approach  is  that  the  final  schedule  set  produced 
typically  will  not  be  optimal  in  a  global  sense.  The  cost  function  goes  down 
relatively  quickly,  but  the  "good"  schedules  as  defined  by  a  low  cost 
function,  may  still  contain  clearly  non-optimal  assignments  of  activities. 

Given  that  the  general  method  of  simulated  annealing  shows  promise  for 
solving  or  at  least  contributing  to  a  solution  to  the  Army's  unique  scheduling 
problems,  several  development  directions  for  improving  schedules  have  become 
apparent  to  us  as  a  result  of  the  work  to  date.  One  such  modification  which 
appears  likely  to  yield  improvements  in  schedule  quality  involves  allowing 
variation  in  annealing  schedules.  This  variation  would  permit  local  small- 
scale  heating  and  cooling.  For  example,  in  the  current  version  of  the  test 
program,  once  resources  have  been  allocated,  no  further  resource  allocation 
occurs  for  the  duration  of  the  iteration.  If  local  variation  in  the  annealing 
schedules  were  permitted,  it  would  be  possible  to  reassign  resources  after 
temporal  constraints  are  met  in  a  local  iterative  loop.  It  may  also  be 
productive  to  explore  other  ways  of  having  the  successive  iterations  build 
directly  upon  the  output  of  the  previous  iterations  rather  than  beginning 
completely  anew  each  time,  as  is  now  the  case. 

Another  possibility  for  improving  performance  might  involve  reconcep¬ 
tualizing  the  concept  of  "temperature."  Instead  of  defining  temperature  based 
on  stages  involving  different  types  of  constraints,  as  is  now  the  case, 
temperature  could  be  defined  based  on  the  temperature  of  activities.  Some 
activities  could  be  considered  "hotter"  than  others  based  on  the  number  of 
constraints  imposed  on  them.  Thus,  activities  with  a  greater  number  of 
constraints  have  a  larger  number  of  potential  constraint  violations  and  would 
be  scheduled  first.  Such  a  redefinition  of  temperature  would  constitute  a 
radical  modification  of  the  existing  system  but  appears  to  be  worth  pursuing. 
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Another  area  for  future  development  that  would  support  the  software 
development  effort  involves  evaluation  of  Army  Training  Schedules.  This 
effort  might  further  explore  what  constitutes  a  realistic  Army  Training 
Schedule.  The  definitions  of  easy  and  difficult  problems  used  here  are  useful 
for  exploring  the  strengths  and  weaknesses  of  the  simulated  annealing 
method.  However,  they  are  somewhat  arbitrary  in  terms  of  the  specifics  of 
actual  Army  scheduling.  There  is  a  need  for  evaluation  of  the  quality  of 
schedule  set  output  based  on  its  utility  to  those  charged  with  the  actual 
planning  of  training.  It  is  important  to  determine  whether  the  scheduling 
outputs  from  the  test  program  are  satisfactory  and  whether  they  provide 
sufficient  benefits  to  overcome  the  costs  incurred  in  their  generation. 
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APPENDIX  A 


COMPUTER  PROGRAM  LISTING 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


c 

10 

c 

20 

1 1 
12 


c 

c 

c 

503 

C 

C  writ* 
C 

23 

C 

C 

C  let's 
C 

C 


c 

c 

30 


Thi*  is  th*  ailn  calling  program  tor 
th*  implementation  of  the  simulated 
annealing  algorithm  to  Army  scheduling 
14  June  1983.  ARI-POM 


CHARACTER  !N#1 

INCLUDE  'COMMON.  FOR/LIST'  ’common  data  block 

CALL  SCHBLD  tbuild  th*  schedules 

CALL  PRCD<SCHA_I>  ’check  temporal  relationships 

WRITEO,  10) 

FORMAT </ 'SHow  many  iterations  would  you  like?') 

READ <3. 20)  ITERS 
FORMAT (13) 

WRITE  <  3.  11 > 

FORMAT </ 'SWoul d  you  like  ell  iterations  saved  to  disk'5" 
READO.  12)  IN 
FORMAT <A1 ) 

RECORD-O 

IF  <  (IN(l  l)EQ  'Y')  OR  <IN(1:1)  EO  'y')>  REC0RD*1 
DO  1*1.  ITERS  ’  iteration  loop 

CALL  ANNEAL  UCOSTMIN.  I.  RECORD) 

WRITE (5. 503)  I 

FORMAT (/ '  Iteration  number  «  '.13) 

ENDDO 

out  th*  minimum  cost 
WRITE<3. 23)  ITERS. ICOSTMIN 

FORMAT!//'  Number  of  iterations  =  '.14./,  '  Minimum  cost 


save  th*  best  set 

OPEN  <UNlT-e. FILE-'BESTSET.  DAT '.  STATUS- 'NEW ' ) 

CALL  PRT3CH2<A.  SCHA_S> 

CALL  PRTFAIL2<FAILA_S. FAILPRA_S> 

CALL  PRTSCH2<B.  SCHB_S) 

CALL  PRTFAIL2<FAIL0~S. FA1LPRB_S) 

CALL  PRT3CH2(C.  SCHC_S) 

CALL  PRTFAIL2<FAILC_S.  FAILPRC.S) 

CALL  PRTSCH2<D. SCHD_S > 

CALL  PRTFAIL2<FAILD_S. FAILPRD_S) 

CALL  PRTSCH2(HHC.  SCHH_S> 

CALL  PRTFAIL2<FAILH  s7faILPRH_S) 


WRITE <3. 30) 

FORMAT  </'  Bye') 

END  ’  all  done,  that's  3ll  there  is  to  i* 


'.  14  ) 


A- 1 


c 


SUBROUTINE  ANNEAL < ICOSTMIN,  ITER, RECORD) 


9 


m 


yyx 


m 


This  is  the  i mp 1 emen ta t l on  of  the 


SIMULATED  ANNEALING  ALGORITHM 


Created  22  MAY  1983  djg 


CHARACTER  HEAD*40 


INCLUDE  'COMMON. FOR/LIST ' 


CALL  INIT  !cltart  arrays  stc 

HEAD! 1:40)  -'•****  INITIAL  SCHEDULE  ****•' 

IF  (RECORD. EQ  1)  CALL  SAVEALL ( HEAD.  I  TER > 

CALL  SRC  !  short-range  calendar 

HEAD ( 1 : 40 )= '**•**  SRC  inhsritsd  **»**' 

IF  (RECORD.  EQ  1)  CALL  SAVEALL ( HEAD.  I  TER > 

CALL  RSRC  !  resources 

HEAO< 1 : 40)= '*****  RESOURCES  CHECKED  *****' 

IF  (RECORD  EQ  1 ) CALL  SAVEALL  (HEAD. ITER) 

CALL  CDRPR  puts  CO.  CDR  priority  activities  on  schedule 

HEAD< 1 : 40)= '***•*  COMMANDER  PRIORITIES  RESCHEDULED  ****•' 

IF  (RECORD.  EQ  1 )CALL  SAVEALL ( HEAD.  I  TER ) 

CALL  TMPRL  •  checks  temporal  relationships 

HEAD( 1 : 40)= '***♦*  TEMPORAL  RELATIONSHIPS  CHECKED  •****' 

IF  (RECORD.  EQ.  1 ICALL  SAVEALL ( HEAD.  I  TER ) 

CALL  UNSCH  !  fills  out  the  schedule 

HEAD( 1 . 40)= '***♦*  UNSCHEDULED  ACTIVITES — FINISHED  •****' 

IF  (RECORD.  EQ.  1 )CALL  SAVEALL ( HEAD.  I  TER > 

CALL  COST(ICOST)  !  computes  the  cost  of  the  schedule  set 

CALL  SAVE< ICOST. ICOSTMIN)  ’decision  to  save  results  of  this  iteration 

RETURN 

END 


Common  block 


SCHA_I  is  schedule  for  company  A  initial 

SCHB__I  is  company  B 

SCHC_I  is  company  C 

SCHD_I  is  company  D 

SCHH_I  is  company  HHC 


SCHPRA  is  cdr  priorities  for  Company  A 
SCHPRB  for  company  B.  etc. 


SCHA  is  working  schedule  for  company  A 
SCHB  is  for  B.  etc . 


SCHA_S  is  saved  schedule  for  Company  A.  SCHB_5  for  B.  etc. 


A.'B.C.D.HHC  are  table  titles. 


FA  I  LA. FA ILB . e t c  are  the  fail  to  schedule  lists 
task  <cl2>  and  reason  <c8> 


-V'.V.V.V  - 


max  of  40  per  unit 

There  sr*  associated  FAILPR  vtcton  which 
give  th*  cdr  priority  of  th#  task. 

FAILA_S.  FAILB_B  otc  tivit  th*  boot  00  for 

FAILPR<41)  lo  uood  oo  a  pointer  to  noit  froo  lino  in  th* 
fail  array*. 

LOCKEDA. LOCKEDB.  etc  show  whether  a  task  has  been  locked 
at  a  higher  "temperature"  levol. 

This  lo  the  main  program  implementing  th*  annealing  algorithm 
applied  to  th*  Army  scheduling  problem. 

Is  this  documentation  file.  Type  DOC  to  read/edit. 


C 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C AMAIN 
C 
C 

caaareadme.  for 

c 

CALIB.OLB  This  is  th*  .OBJ  library.  To  include  or  replace  an  item 
C  use  th*  command:  CL  <filenamo>.  Next  you  may:  GO  to 

C  test  th*  changes  you've  mad*. 

C 

CRN  <  N ) 

C 
C 

CRND(I)  The  actual  random  number  generater. 

C  based  on  reading  the  system  clock. 

C 

CPRTSCH(TITLE« SCH)  A  utility  subroutine  that  prints  the  title  (char  40) 
C  and  schedule  information  (char  480)  to  the  screen  in  calendar 

C  format  with  an  option  of  printing  hardcopy. 


A  function  returning  a  random  integer  between  1  and  N. 
RND(I).  Returns  i*ro  if  N=»0. 


It  uses 


It  creates  its  own  seed 


CTSKLST.DAT  Data  structure  containing  candidate  training  activities.  First 
C  field  of  three  numerials  is  serial  id.  next  field  of  12 

C  characters  is  description  Activities  are  on  even  numbered  file 

C  lines,  odds  are  used  for  typing  guides. 


CSCHBLD  Subrountine  that  manages  the  building  of  schedules  for  all 
C  companies. 

C 

CSCHBLDAX ( SCHED.  SCHPR )  Subroutine  that  builds  initial  schedules  from  the 
C  TSKLST  items  using  random  selection.  Also  assigns  random 

C  priorites  to  the  tasks  (range  1  to  40  with  unique  values). 

C 

CTSKSWAP( IHR1. IHR2, SCH, SCHPR)  In  schedule  SCH  will  exchange  the  task  in  IHR1 
C  with  that  in  IHR2. 

C 

CTSKSRCH(TSK. SCH, LOC. ISTART)  In  schedule  SCH  will  serach  from  hour 
C  ISTART  to  end  for  task  TSK  (char  12)  returning  location  hour  LOC 

C  or  jero  if  not  found. 

C 

CTSKRPLC (LOCATION, TASK,  SCH)  Replaces  task  in  schedule  with  TASK 
C 

CPRCDTBL.DAT  Table  of  precedence  relationships  among  tasks 


Format:  TaskID  (cl2>  relation  (cfc)  TaskID  (cl2) 

Current  valid  relationships: 

AFTER  —  taskl  must  occur  after  another  task2 

(1)  task2  will  be  swapped  to  an  earlier  time 
than  task  one  if  possible  and  already  in  the 
scheduleor 

(2)  it  will  be  added  if  not  in  schedule  or 

(3)  a  fail  message  will  fc ?  generated 


CSRC.DAT  The  Short-range  Calendar  Maximum  of  100  elements 
C  Task  ( c 12) 

C  Unit  (cl)  A. B, C, D. H,  Every 

C  Hour  <i2)>  1-40.  0  *  none  specified 

C 

CPRCD(SCH)  Subroutine  which  will  check  the  table  for  precedence 
C  violations  and  attempt  to  resolve  them. 

C 

CP AFTER ( TSK 1. LOC. TSH2. SCH.  LOCRED_HOUR_TABLE > 

C  Subroutine  deals  with  precedence  relationahip 

C  where  TSK1  in  location  LOC 

C  can  appear  only  after  TSK2  in  schedule  SCH. 

C  It  is  called  from  PRCD 

C  Uses  and  updates  table  of  tasks  that  are  locked  in  terms 

C  of  precedence  only. 

C 

CSRC  The  subroutine  which  reads  SRC.  OAT  and  changes  the  company 
C  schedules  accordingly.  Shares  COMMON.  FOR 

C 

CSRCAUX  Subroutine  that  directly  does  the  work  on  each  company.  It 

C  called  only  by  SRC  and  shares  a  common  block  with  it. 

C 

CSCHCOPY ( I NSCH, OUTSCH.  INSCHPR. OUTSCHPR )  Utility  for  copying  one  schedule 
C  into  another. 

C 

CTSKRSRC  DAT  Table  of  resources  required  by  tasks.  Contains  tasks  (cl2> 
C  and  resources  (cS>  Maximum  of  50  lines 

C 

CRSRC. DAT  Table  of  the  actual  resources  available.  Contains  the 

C  resource  name  (c8).a  quantitative  amount  available  ( i2) 

C  for  expendable  resources,  and  a  40  hour  calendar  for 

C  renewable  resources  <i40)  where  a  O  means  the  resource 

C  is  not  available  at  that  hour.  A  maximum  of  50  resources 

C  can  be  entered 

C 

CRSRC  Subroutine  that  resolves  resource  contraints  and  interunit 
C  c  onf 1 i c  ts 

C 
C 

CRSRCAUX  < SCH. SCHPR,  FAIL.  FAILPR.  LOCKED,  TSKRS.  RSLST , RSTIME. RSQTY )  Does  the 
C  actual  work  on  each  schedule  for  RSRC. 

C 

CHIGHPR < FA ILPR. TR IED, IPNT)  Subroutine  that  returns  the  pointer  to  the 
C  highest  cdr  priority  (lowest  value)  on  the  fail  list,  or  zero 

C  if  all  have  been  tried. 

C 

CTSKSUB (sub. schpr. ltarget. tskin, tskout. fail. fallpr, ipnt, reason) 

C  Subroutine  that  substitutes  TSKIN  in  schedule  SCh  at  hour 

C  ITARGET.  removing  that  task,  TSKOUT.  putting  it  on  the  fail 

C  list  with  REASON>  Also  swaps  priorities.  If  task  in  schedule 

C  is  blank,  reduces  size  of  fail  list. 

C 

CTMPRL  Subroutine  which  checks  temporal  relationships  for  each  company 
C  schedule.  It  includes  the  common  block.  Calls  TMPRLAUX  for  each 

C  company 

C 

CTMPRLAUX (SCH, SCHPR, FAIL.  FAILPR.  LOCKED,  PRC >  Performs  the  check  on 
C  tstr.porzl  relationships  for  each  company  Either  resolves  the 

C  dependency  or  pulls  the  task  from  the  schedule  and  adds  it 

C  to  the  unscheduled  (FAIL)  list 

C 


CREASON  (LOCKED* 1HR. REA)  Return*  the  level  at  which  a  scheduled  activity 
C  he*  been  locked. 

C 

CUNSCH  Put*  low  priority  activites,  requiring  no  resource*  or  having  no 
C  temporal  relationship*  on  the  schedule. 

C 

CUNSCHAUX  Does  the  job  for  UNSCH  on  each  company. 

C 

CPRTFAIL ( f a i 1 »  feilpr)  Print*  the  fail  list. 

C 

•  CINIT  Clear*  buffers  etc.  at  the  start  of  each  iteration 
C 

CSAVEALL (HEADING* 1TERAT 10N_NUMBER >  Saves  everything  onto  disk  for  later 
C  review. 

C 

CPRTDSK( LABEL< SCHEDULE)  Same  as  prtsch  only  to  disk. 

C 

CLCKSETUP( TEMP.  LOCKED)  Puts  locked  info  into  schedule  format  for 
C  SAVE ALL. 

C 

CPR I  SETUP ( TEMP. PR 10T 1 TY )  Puts  edr  priority  info  into  schedule  format  for 
C  use  by  SAVEALL. 

C 

C 

CFAILCOPY  Copies  fail  lists  into  save  array  for  best  schedule  set  so  far 

C 

C 

CPRTSCH2  It  PRTFAIL2  Output  the  best  set  of  schedules  for  BE5TSET. DAT 

C 

C 

CHAR AC TER *480  SCHA_I .  SCHB_I ,  SCHC_I .  SCHD_I .  SCHH_I . 

*  SCHA, SCHB. SCHC. SCHD.  SCHH, 

*  SCHA_S.  SCHB_S. SCHC_S,  SCHD_S.  SCHH_S 
COMMON  SCHA _1 ,  SCHB_I.  SCHC_I,  SCHD_I.  SCHH_I. 

*  SCHA. SCHB. SCHC.  SCHD.  SCHH. 

*  SCHA_S.  SCHB  S. SCHC  S.  SCHD_S,  SCHH_S 
C 

CHAR AC TER *40  A. B.C.D.HHC 
COMMON  A.  B.C.D.HHC 

C 

CHAR AC TER *800  FAILA,  FAILB,  FAILC.  FAILD. FAILH, 

*  FAILA_S.  FAILB_S.  FAILC_S.  FAILD_S.  F A I LH_S 
INTEGER  FAILPRA ( 4 1 ). FA1LPRB(41 ), FAILPRC(41 ).  FAILPRD(41 >. 

*  FAILPRH ( 4 1 ), SCHPRA  <  40  > .  SCHPRB<40>.  SCHPRC<40>. 

*  SCHPRD (40). SCHPRH(40), 

*  FAILPRA_S (41).  FAILPRB_S ( 4 1 ),  FAILPRC_S(41 ),  FA1LPPD_S(41 ). 

*  FAILPRH_S  <41 ).  SCHPRA_T(40>.  SCHPRB_I < 40 ) .  SCHPRC_I (40), 

*  SCHPRD_I (40).  SCHPRH_I (40) 

COMMON  FAILA. FAILB, FAILC,  FAILD.  FAILH, 

*  FAILA_S, FAILB_S.  FAILC_S.  FAILD_S.  FAILH_S, 

*  FAILPRA. FAILPRB.  FAILPRC.  FAILPRD.  FAILPRH. 

*  SCHPRA. SCHPRB.  SCHPRC, 

»  SCHPRD. SCHPRH  . 

»  FAILPRA_S, FAILPRB_S,  FAILPRC_S,  FAILPRD_S, 

%  failprh_s, schpra_i,  schprb_i7schprc_i.  " 

*  SCHPRD_r,  SCHPRH_I 
C 

COMMON  LOCKEDA ( 40 ) , LOCKEDB ( 40 ) .  LOCKEDC ( 40 )  ,  LOCKEDD ( 40 ) .  LOCKEDH ( 40 ) 
C 

All  40)*'  SCHEDULE  FOR  COMPANY  A' 

B  <  1  40) «'  SCHEDULE  FOR  COMPANY  B' 


nnon 


C  make  »urt  the  activity  dots  not  require  any  rtiourcti  29may 
00  1-1.30 

J-( 1-1 >*20«-l 

IF(TSKRS(  J:  J+2).  EQ.  'END' >  00T0  21  Idone 
K-( IPNT-1 >*20fl 

IF(FAIL(K:  K+ll ).  EQ.  TSKRS(  J:  J+i  1 ) )  GOTO  3  fnttdi  ntourcet 
ENDDO  !gat  anothar 

21  CONTINUE 

C  make  a ora  at  least  ona  task  is  in  calandar  and  not  locked,  and 
C  maka  sura  task  with  a  louiar  edr  priority  aiists  in  sch 
DO  1HR-1 , 40 

IF  <  (LOCKED <  IHR).  EQ.  0)  -  AND.  (SCHPR! IHR).  CT.  FAILPR! IPNT) ) > 
•  THEN 


C  search  fo r  and  use  blanks  first  29  nay 

DO  1-1.40 

1JPNT=< 1-1 >*12f 1 
IF(SCH( IJPNT:  IJPNTrll >  .  EQ.  ' 
•  THEN 


lO 


20 


J=(  IPNT-1  >*20M 
TSKIN(1: 12>=FAIL< J: J+l 1 ) 

CALL  TSKSUB ( SCH. SCHPR. 1. T5KIN, TSKOUT. 

*  FAIL. FAILPR.  IPNT. CP.  TRIED) 

LOCKED ( I ) =3 

GOTO  3 
END  IF 

ENDDO 

ITARGET=RN ( 40 )  !pick  one  at  random 

IF  <  (LOCKED  <  I  TARGET  ).  EQ.  0)  .AND. 

*  (SCHPR( ITARCET).  CT.  FAILPR( IPNT) > )  THEN 

J=< IPNT-1 ) *20+1 
TSKINd:  12 ) — FAIL ( U: Jr  1 1 ) 

CALL  TSKSUB < SCH,  SCHPR.  I  TARGET, TSKIN. TSKOUT, 

*  FAIL.  FAILPR,  IPNT,  CP, TRIED) 

LOCKED! I  TARGET) -3 

GOTO  20 

END  IF 

GOTO  10  !  choose  anothar  target,  this  one  no  good 

CONTINUE 
END  IF 
ENDDO 

goto  3  icontinue  until  all  ara  triad 
END 


SUBROUTINE  COST  (IC) 


computes  the  cost  for  a  set  of  schedules,  returns  total  cost 


INCLUDE  'COMMON.  FOR/LIST ' 

C 

CALL  COSTAUX  ( FAILA. FA1LPRA,  ICA > 
CALL  COSTAUX  (FA1LB. FAILPRB,  ICB > 
CALL  COSTAUX  (FAILC. FAILPRC,  ICC) 
CALL  COSTAUX  (FAILD. FAILPRD.  ICD) 
CALL  COSTAUX  ( FAILH. FAILPRH.  ICH ) 


C 

C 


IC=ICA*ICB+ICC*ICD»ICH 


WR 1 TE <  5.  100)  IC 

100  FORMAT!/'  Cost  of  this  schedule  set  is  *.13,//) 


101 

c 

c 


WR1TE<2. 101)  IC 

FORMAT </ '  Cost  of  this  schedule  set  is  '.13.//) 


RETURN 

END 

Oaa«aB*aaaaBR>MMM*")iU*«aaaan3»iaaafla8aaasaaaaaauaMaHaMBMa>a 

SUBROUTINE  COSTAUX (FAIL,  FAILPR.  ICOST) 

^aasaaaBasaaaaaaaaaaaaaaaaaaasssaassaaaaaaaasasssssasasaaaassasaaaaa 

c 

C  this  computes  the  cost  of  the  schedule  passed  to  It  based  on  the  fall 
C 

CHARACTER  FAIL *800. REASON*0 

INTEGER  FAILPR(41)  !remember  41  stores  the  nut  empty  cell 
C  !  on  the  fail  list 

C  for  every  item  on  the  fall  list  compute  its  cost 
C 

I COST-O 

DO  ITEM-1. FAILPR(41 )-l 

I REASON- ( ITEM- 1 ) *20+ 13  Ipointer  into  the  fail  array 
REASON ( 1 : S)-FAIL< I  REASON  I  REASON* 7 )  !get  the  reason 
C 

C  here  we  go  looking  at  the  specific  reason.  Values  ARE  fleiibile) 

C 

IF  (REASON!  1:  8).  EQ.  'SRC  ')  THEN 


C 


ICOSTINC-3 


r 

C 

C 

C 

C 

C 


ELSE  IF  <  REASONS  1 : 8 ) . EQ  'RESOURCE')  THEN 
IC0STINC=4 

ELSEIF(FAILPR< ITEM)  EQ  1)  THEN  lie  high  cdr  priority 
ICOST I NC-3 

ELSE  IF  <  REASON ( 1 :  8 ) .  EQ  'TEMPORAL')  THEN 
ICQSTINC=2 


list 


C 

C  and 
C 


ELSEIF(FAILPR< ITEM)  CE.  97)  THEN 
ICOST INC=1 

ELSE  !ue  blew  it  somewhere  so  scream 

WRITE <3.  100)  REASON  I  1:8). FAILPR ( ITEM) 

FORMAT  (  '  Cost  function  blewup  REASON  >',A8.  '<  FAILPR=»  '.  13) 
STOP 

ENDIF 

then  add  it  to  the  total 

ICOST- 1  COST* I  COST  INC 

ENDDO 

RETURN 

END 


SUBROUTINE  FAILCOPYIFAIL.  FAIL_S.  FAILPR.  FAILPR.S) 


laassassasasaacs^saza: 


iss*»  =  3  =  323  =  a2S3ias,sa»sr: 


C  copies  schedule  fail  list  into  save  array 
CHARACTER  FA  I L *800. FA  I L _S«800 


non  o  n  o  n  n  n  ononn  n  n  n  o  r>  n  r>  r> 


INTEGER  FAILPR  <  41 ) «  FAILPH  bun 
DO  1-1.41 

FAILPR_9< I >-FAlLPR< I ) 

ENDDO 

FAIL_8( 1: 800>-FA1L<1:  800) 

RETURN 

END  !hey.  that  was  easy 

mst  araaaasaaanaanaBaaszaaaaaaaBsiiasaasB 

SUBROUTINE  HIGHPR <FA1LPR.  TRIED.  IPNT) 


return*  pointer  to  the  highest  edr  priority  on  the  fail  list 
or  zero  if  all  have  been  tried 

Only  dichotomous  vlues  used  in  this  current  implementation 
INTEGER  FAILPR (41 ). TRIED! 40 ) 

IEND=FAILPR<41 )-l  !  how  many  on  the  list  now 

IVAL-99 

IPNT-0  !  in  case  we  can't  find  one  that  has  not  been  tried 
DO  1-1.  I END 

1F<<FAILPR<D  .  LE.  1VAL)  .AND.  <TRIED<I>  .  EQ  O)  )  THEN 
IVAL-FAILPR  (  1  > 

IPNT- I 

END  IF 
ENDDO 
RETURN 
END 

SUBROUTINE  INIT 


copies  initial  schedules  etc  into  working  arrays,  zeros  and 
initializes  other  arrays  and  variables 

INCLUDE  'COMMON  FOR/LIST' 

copies  schedules  and  and  edr  priority  vectors 

CALL  SCHCOPY  <  SCHA_I .  SCHA.  SCHPRA_I,  SCHPRA) 

CALL  SCHCOPY < SCHB^I ■  SCHB,  SCHPRB_I,  SCHPRB  > 

CALL  SCHCOPY <SCHC~I,  SCHC.  SCHPRC_I. SCHPRC ) 

CALL  SCHCOPY  <  SCHD~I .  SCHD.  SCHPRD_I, SCHPRD) 

CALL  SCHCOPY <SCHH_I.  SCHH,  SCHPRH~I , SCHPRH > 

zeros  locked  arrays 

DO  1  =  1.  40 

LOCKEDA! I ) =0 
LOCHEDB  < I ) =0 
LOCKEDC ( I ) =0 
LOCKEDD! I ) =0 
LOCKEDH! I >  =0 

ENDDO 

initializes  the  pointer  into  the  fail  list 

FAILPRA ( 4 1 )=1 
FAILPRB<41 )=l 
FA1LPRC  <  4 1 )  =  ! 

F  A  I LPRD  <  4 1  )-l 


r>  r>  n  n  r>  r>  ct  >-  nnoo 


FAILPRH<  41 )-l 

RETURN 

END 


SUBROUTINE  LCRSETUP  (TEMP.L) 


ttti  up  calendar  with  locked  status  of  hours 

CHARACTER  TEMP*4B0 
INTEGER  L < 40 ) 
i-480 

temp ( i : i +20 ) ■ ' j us t  for  testing' 

DO  1  =  1.40 

IPNT=d-l)*12*l 

IF  (L( I )  .  EQ.  0)  THEN 

TEMPdPNT:  IPNT+1 1 >= 'not  locked 
ELSE  IF  (L(I).EO.  1)  THEN 

TEMP (IPNT: IPNT+1 1 >= 'SRC  ' 

ELSE  IF  (L(I).EO  2)  THEN 

TEMP  (IPNT: IPNT+1 1 )=' RESOURCES 
ELSE  IF  (L(I).EQ. 3)  THEN 

TEMPdPNT.  IPNTdl  >='CDR  PRIORITY' 

ELSE  IF  (L(I).EQ  4)  THEN 

TEMPdPNT:  IPNT  +  11)  = 'TEMPORAL 

ELSE 

WRITE  (5.  10)  Ld  ).  I 

0  FORMAT  (  '  bombed  in  LOCKSETUP.  LOCKEDd)  \  I  =',2IB> 

ENDIF 
ENDDO 
RETURN 
END 

SUBROUTINE  P AFTER  < TSK 1 .  LOC .  TSK2,  SCH, LOCKED > 


This  one  attempts  to  resolve  AFTER  type  precedence  requirements. 

If  it  fails  it  removes  TSK1  from  the  schedule  and  puts  it  on  the 
FAIL  list.  Only  used  after  initial  schedule  are  built.  6may85 
DIMENSION  LOCKED <  40 ) 

CHARACTER  TSKiel2.  T5K2*12.  SCH*4B0, TSKTMP*12 
INTEGER  SCHPR < 40) 

TSKTMPd:  12)=' 

Check  if  TSK1  at  hour  one.  if  so  move  if  anyplace 
IF  < LOC  .  EQ.  1)  THEN 
1  ITO=RN< 39 ) ♦ 1  !pick  any  hour  between  2  and  40 

IF  (LOCKEDdTO)  .  EO.  1)  GOTO  1  !if  locked  then  get  another, 
c  ‘possible  infinite  loop***** 


CALL  TSKSWAPdTO,  LOC.  SCH,  SCHPR)  'move  It 
LOC=ITO  !keep  track  of  where  it  went 
LOCKED  (LOC  )  =  1  dock  it 
ENDIF 

C  Is  TSK2.  the  prerequisite,  already  in  the  schedule? 

CALL  TSKSRCH( TSK2.  SCH. 1, IWHERE) 

IF  (IWHERE  .  CT.  0)  THEN  !Yes,  in  schedule 

IF  (IWHERE  .  LT.  LOC)  RETURN  df  already  before  then  quit 
15  IT0-RN(L0C~1 >  ^Select  any  hour  before  TSK1 

IF  (LOCKEDdTO).  EQ.  I  )  GOTO  15  df  locked,  get  another 
C  ^possible  infinite  loop**** 

CALL  TSKSWAP ( I  TO.  IWHERE.  SCH,  SCHPR )  • Interchange  the 

LOCKED (  1  TO )  =  1  dock  it  dasks  arbitrarily 

RETURN  •  AM  done 


•‘WmVx 


noon  ►*+  noon  ooonoo 


17 


ELSE 


C 


(Prerequisite  is  not  in  table  put  will  be  put  in 
IT0=RN!L0C-1 >  !  Select  any  hour  before  TSK1 

IF  < LOCKED < I TO)  .  EQ.  11  QOTO  17  'if  locked  gat  anothar 
CALL  TSKRPLC  < 1TO.  TSK2,  SCH>  ! stuff  it  in 
LOCKED<ITO)-l  (lock  it 

END  IF 

RETURN 

END 


subroutina  prcd  (sch) 


This  is  usad  only  during  tha  building  of  schadules 
Checks  temporal  r a  la t ionsh i p s  for  a  given  schedule 
and  attempts  to  resolve  them  6MAY83  djg 

CHARACTER  SCH*480.  TSK1M2.  TSK2*480.  REL*6 
CHARACTER  PRC*3000  !Pracedanca  data,  mai  of  100 
DIMENSION  LOCKED ( 40 )  stable  of  filed  tasks  in  terms 

of  precedence  resolution. 

If  first  time  called  read  precedence  table  into  memory 
IF  ( I FLAG  . NE.  1)  THEN 

IFLAC  =  1  !  This  is  the  first  time  so  set  flag 

OPEN  <UNIT=3. FILE3 'PRCDTBL.  DAT ' , STATUS=  'OLD  '  > 

DO  1  =  1,3000.30 

READ  <3,  10)  PRC  < I .  1+29) 

O  FORMAT </A30> 

ENDDO 

CLOSE  <UNIT=3) 

END  IF 

Check  every  task  in  the  schedule  for  precedence  relationship 

Clear  the  locked  table  for  each  schedule 
DO  1  =  1,40 

LOCKED! I )  =0 
ENDDO 

DO  I HR  -  1, 40 
IPNT  =  ( IHR-1 )*12+1 

TSK1 ( 1 : 12>=SCH! IPNT : IPNT+1 1 )  !Move  the  task  to  dummy  var 
C  Read  up  to  100  relationships 
DO  IPRC  =  1.  100 

I“!  IPRC-1  )*30+l  (Pointer  into  precedence  table 
IF  <PRC ! 1 :  1+2)  . EQ.  'END')  GOTO  SO  !End  of  table 
IF  <  TSK1  <  1 :  12)  .  EQ.  PRC!I:I+11>  )  THEN  !Found  one 
REL! 1: 6)=PRC! 1  +  12:  1  +  17)  !Get  the  type  relationship 
TSK2! 1 :  12>=PRC ! 1  +  18:  1+29)  !Get  the  other  task  in  relationship 
IF <REL (1:6)  .  EQ.  'AFTER  ' )  THEN  .'AFTER  relationship 

CALL  P AFTER !  TSK 1 ,  IHR , TSK2. SCH, LOCKED ) 

GOTO  30 
END  IF 

WRITE!S.23>  REL(1:6)  !This  is  an  error  state  Scream 

FORMAT!'  UNKNOWN  RELATIONSHIP  DETECTED  '/'  I - 1*. 

/IX. A6> 

CONTINUE  1 jmp  from  precedence  accommodation 

ENDIF 
ENDDO 

CONTINUE  !  UMP  from  end  of  data  in  precedence  table 
ENDDO 


23 

» 

30 


50 


A-ll 


RETURN 

END 

SUBROUTINE  PR  1 SETUP (TEMP. PR) 

C  sets  up  coiM*nd»r  priontm  to  bo  printed  out 
c 

CHARACTER  TEMP*480 
INTEGER  PR (40) 

DO  1  =  1, 40 

IPNT=( I-I )*12*1 

IF  (PR ( I ) .  EO  1 )  THEN 

TEMPI IPNT: IPNT*1 1 )= 'PRIORITY 

ELSE 

TEMP ( IPNT: IPNT*1 I )= ' 

END  IF 
ENDDO 
RETURN 
END 

C  asaaaflaasMaaBasBBBiiaaaaaaacnaacRzsoKRaasBaasRaBacaasaxaaasii 

SUBROUTINE  PRTDSK,  (TITLE, SCH) 

c 0====a*nrcBiiBn*«a*jM=3ana*3«=3C5ct:»33a3«*Ba3aa3aaac«333«*a 

C  Write*  a  schedule  to  a  disk  file 

CHARACTER  T I TLE*40, SCH*480,  A*12,  B*t2. C*12, D*12. E*12 

LU=2 

IFLAG=1 

1  CONTINUE  '  Jump  to  here  if  hardcopy  requested 

WR1TE(LU. 3)  TITLE! 1  40) 

5  FORMAT  < / /25X . A40 ) 

WRITE(LU. 20) 

20  F0RMAT(/12X,  'Monday', 7X.  'Tue s d ay  ' ,  6X .  '  Wedne s day  ' , 6X , 

*  'Th ur sday  ' , 7X .  'Friday') 

WRITE(LU. 25) 

25  FORMAT  <  '  TIME  '/ ) 

1  =  1 

DO  I HOUR =8. 11 

A(1  1 2 ) =  SCH ( I ■ 1*11) 

Bd.  12)  =SCH  (  I  *96:  1*107) 

Cll: 1 2 ) =5CH (1*1 92 : 1*203) 

Dll; 12)=SCH( 1*288. 1*299) 

E(l: 12 ) =SCH ( 1*384: 1*395) 

1=1*12 

WRITE(LU. 30)  IHOUR. A, B.  C,  D,  E 
30  FORMAT (/IX.  12,  ':  '.  '00 ' .  1 X, 5 ( 2X . A 1 2 > ) 

ENDDO 

DO  I HOUR =13, 16 
All: 12) =SCH ( I : 1*11) 

B(l: 12)=SCH< 1*96: 1*107) 

C(l: 12)=SCH( 1*192: 1*203) 

D(l: 12>=SCH( 1*288: 1*299) 

Ed:  12)=SCH(  1*384:  1*395) 

1=1*12 

WR1TE(LU, 30)  IHOUR, A, B.  C,  D,  E 

ENDDO 

RETURN 

END 

Qssxszassas  3=s9  =  aies«3  =  Ba::3  3:3a:  =  -  =  =ra  =  =  =  =  33S3%:sTa:3  =  3  =  =  :3:z 

SUBROUTINE  PRTFAIL  (FAIL,  FAILPR  > 


C 

CHARACTER  FAIL*0OO, IN*1 
INTEGER  FA ILPB ( 4 1  ) 

C 


C  DISPLAY  THE  FAIL  LIST"*^ 
wr  i te( 3,  140) 

READ (5.  130)  IN 

140  FORMAT! '4Do  you  wont  to  view  the  foil  list?') 

130  formot(ol) 

lf<  .  not.  ( (  in!  1:  1 ).  eq.  'y  '  >.  or.  (  in!  1:  1  >.  eq.  'Y' >  >  >  goto  200 
DO  Jal  >  FAILPR ( 4 1 )  - 1 
IMJ-l  )*20+l 

WRITE! 3.  100)  J, FAIL! I:  1  +  19),  FAILPR !J> 

100  F0RMAT!/1X, 14, 4X, A20, 18) 

ENDDO 

200  continue  (bypass  print  foillist 

RETURN 
END 

SUBROUTINE  PRTFAIL2  IFA1L,  FAILPR) 

C  a333=33Baaa«s*3aa*aaaa=33  =  =  =  s  =  3  =  =  =  a=3SSis  =  =  =  =  =  i--;  =  :  =  =  ==  =  aas5  =  3  =  =  s 

C  Writes  fail  list  to  the  disk 
C 

CHARACTER  FAIL+800. INM 
INTEGER  FAILPR (41 ) 

C 

C  writes  the  foil  list  to  disk 
DO  J=l. FAILPR ( 4 1 > - 1 
I=( J-l ) *20*1 

WR I TE ( B,  100)  J, FAIL! I :  I ♦ 1 9 ) ,  FAILPR ( J > 

100  F0RMAT(/1X.  14,  4X, A20,  19) 

ENDDO 

200  continue  (bypass  print  faillist 

RETURN 
END 

SUBROUTINE  PRT3CH  (TITLE,  SCH) 

C  Prints  a  schedule  to  the  screen  or  printer 

CHARACTER  TITLE*40.  SCH*480,  AM2.  BM2,  CM2.  DM2,  EM2 
C  CALL  CLRSCRN 

LU=5 
I FLAG3 1 

1  CONTINUE  !  Jump  to  here  if  hardcopy  requested 

WRITE ( LU, 3 )  TITLE! 1:40) 

3  FORMAT! //23X,  A40) 

WR  ITE (LU. 20) 

20  F0RMAT(/12X,  'Monday ',  7X«  'Tuesday  6X.  'Wednesday ',  6X, 

*  'Thursday '. 7X.  'Friday') 

WR ITE (LU, 23) 

23  FORMAT!'  TIME'/) 

I«=l 

DO  IH0UR=8. 11 
A !  1 :  12)“SCH<  I :  IM1) 

B ( 1 : 12)=SCH( I >96: 1>107) 

C  < 1 :  12) =SCH ( I >192  1+203) 

0(1: 12)«SCH< I+2BB  1+299) 

Ed:  12>=SCH( 1+384:  1+395) 

I-I+12 

WRITE(LU, 30)  IHOUR, A, B. C. D, E 
30  FORMAT! /IX,  12,  '  ',  '00',  1 X,  3  <  2X ,  A 1 2 )  ) 

ENDDO 

DO  I  HOUR* 1 3.  16 
All: 12) =SCH( I  I +1 1) 

B ( 1  12 ) =SCH< I +9 h  I +107 ) 


$ 


•*v 


) 

.*;S 

& 


CM:  12 ) -SCH !  1*1 92:  1*203) 

D<1  12)»SCH( 1*288  I *299 > 

E  < 1 :  12) -SCH! I >384:  1*393) 

1-1*12 

WR1TE!LU, 30)  IHOUR. A.  0.  C,  D.  E 
ENDDO 

ints  hardcopy  at  u**r  rtquut 
IF <  IFLAQ  .  EQ.  1)  THEN 
IFLAC-0 
LU=6 

WRITE ( 3. 40) 

FQRMAT!/'*Do  you  want  hardcopy?') 
READ  <5. 43)  J 
FORMAT <A1 ) 

IF (  <  J  .  EQ  'Y' )  .  OR  !  J  EQ  'y  ' 
END  IF 
RETURN 
END 


'y')>  GOTO  1 


>ss0asa3D=====a 


SUBROUTINE  PRTSCH2  !TITLE,SCH) 


■ites  a  schedule  to  a  disk  file 

CHARACTER  T I TLE »40.  SCH«480.  A*12,  B*12. C*12. D*12.  E*12 
WR ITE<8. 3)  TITLE! 1  40) 

FORMAT  ! //23X,  A40) 

WRITE (3,  20) 

F0RMAT(/12X.  'Monday',  7X,  ' Tue s day ' . 6X ,  'Wednesday ',  6X, 
*  'Thursday '. 7X.  'Friday') 

WRITECB. 23) 

FORMAT! '  TIME'/) 

1-1 

DO  I HOUR =8.  1 1 

A! 1 : 1 2 ) =SCH! I. 1*11 ) 

B ! 1 : 1 2 ) =SCH< I +96  1*107) 

C ! 1 : 12)=SCH! 1*192  1*203) 

D ( 1 : 12)=SCH! 1*288  1*299) 

E ! 1 : 12)=SCH! 1*384  1*395) 

1-1*12 

WRITE!8. 30)  IHOUR,  A.  B.  C.  D.  E 
FORMAT! /IX.  12.  '.  '00  ' .  1  X .  5 1  2X.  A 1 2  )  ) 

ENDDO 

DO  I HOUR- 13.  16 
A! 1: 12) -SCH ! I: 1*11) 

8(1: 12) -SCH! 1*96  1*107) 

C ! 1 :  12) -SCH! 1*192:  1*203) 

D!l:  121-SCH! 1*288:  1*299) 

E! 1: 12 ) -SCH ! 1*384  1*393) 

1-1*12 

URITE!8. 30)  IHOUR. A. B,  C .  D, E 

ENDDO 

RETURN 

END 


rsssss3saaaB=x3a=3  =  a  = 


SUBROUTINE  REASON (LOCKED, I HR, REA ) 


lives  the  laval  for  activities  in  the  schedule  being  locked 

CHARACTER  REA*8 
INTECER  LOCKED  <  40 ) 

IF (LOCKED! IHR )  EQ  0)  I  HEN 


L... 


MJtWICI4JIMiQUOtJQUaia«hJOUnt)&  VUW-:  wvi  W  VI 


$  -j 


REAM  8>='TIME 

ELSE  IF  ( LOCKED  MHR  ).  EQ.  1)  THEN 
REAM:8)-'SRC 

ELSE  IF  (LOCKED! I HR).  EQ.  2)  THEN 
REAM  :  0)-  'RESOURCE  ' 

ELSE  IF  ( LOCKED ( I HR).  EQ.  3)  THEN 
REAM  :  8>*»'CDR  PRI  ' 

ELSE  IF  (LOCKED! I HR).  EQ.  4)  THEN 
REAM.  8  >-  'TEMPORAL' 

END  IF 

RETURN 

END 

C sssassassssssasssaaaasssassaBsasasaaassBsssssssssszssssssaaasaszasa 

FUNCTION  RNIN) 

0 3S2cs33==33ao93casaas33=3=a3==3==aa33a3B933a=S3a9>3aa:=s*3:33saBaaa 

C  Returns  a  random  integer  between  1  and  N 

IF  ( ITEST  .  NE.  1)  THEN  ! NEEDED  INITIALIZED  RND  WHEN 
ITEST  *  1  fCALLED  THE  FIRST  TIME!!!!!! 

Z=RND  < - 1 )  !  ***SAVE*** 

ENDIF 

IF<N  EQ.  O)  THEN  'returns  0  if  N  is  lero 
RN=0 
RETURN 
ENDIF 

RN=  1NT  <  RND ( 0 ) *N ) ♦ 1 

RETURN 

END 

function  rnd < i flag ) 

c 

C  This  little  baby  borrowed  from  A.  Griesemer.  25AprB5  djg 
c  It  IS  VAX  specific)  uses  the  real  time  clock  for  seed 
C 

C  Produce  psudo-random  numbers  in  the  range  0.0  to  1.0. 

C  I5EED  must  be  be  initialized  to  a  number  between  1  and 

C  2796202  the  first  time  RND  is  called.  The  argument  IFLAG  controls 

C  this  in i t i a  1 i za t i on.  If  IFLAG  is  negitive  the  system  clock  is  used 

C  to  initialize  the  seed.  If  IFLAG  is  greater  then  zero  the  value  of  IFLAG 

C  becomes  the  seed.  If  IFLAG  =  O  the  previous  ISEED  is  used  to  generate 

C  the  neit  random  number  in  sequence. 

C 

C  Adapted  form  ACM  algorithm  266CG5>. 

C 

IF!  IFLAG)  10.40.30 

10  ISEED=SECNDS(0. 0) M  !Reads  the  real  time  clock  here.  djg 
C  WRITE  <3.  15)  ISEED 

C15  FORMAT (  '  NOTE:  New  value  of  random  number  seed  is  '.16) 

GO  TO  40 

30  ISEED=IFLAG 

C 

40  I SEED® 125* I SEED 

ISEED* I  SEED- < I  SEED/2796203 ) *2796203 

RND=FLOAT < ISEED) /2796203.  O 

RETURN 

END 

CR*=333S3fl8aa33aaaaa333£==:2=S333=33a33a3a33BaC3aa3a3S=aBC:a33233323 

SUBROUTINE  RSRC 

£saE3  =  *3aa  =  3a  =  3a3a3»3S33-as3=3  =  =  =  =  s33  =  a3  =  s»  =  33S3asr5  =  =  3  =  =  =  3!is  =  3  =  =  =  at:* 

C  verifies  the  availability  of  resources  for  tasks 
C 
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c 

c 

c 

1 

c 

c 

c 

c 


10 


c 


CHARACTER  TSKRS*1000. RSLST*400.  IN*1,  RSLSTS*400 

INTEGER  RSTIME  <  50. 40) , RSOTY ( 30) .  RST I MES *  30. 40 > , RS0TY3 < 30 > 

CHARACTER  TSK*12. 1NFILE*12 


INCLUDE  'COMMON  FOR/LIST  ' 

WRITE (3. 1 > 

FORMAT*/'  *****  Resolving  Resource  Constraints  &  Conflicts  * 

read  the  table  of  resources  required  by  tasks 
start  off  with  fresh  resource  list  each  run 

IF  (IFLAG.NE.  1)  THEN 
IFLAG=1 

OPEN  <UNIT=3,  F ILE= 'TSKRSRC .  DAT ',  STATUS= 'OLD' ) 

DO  1=1.  50 

J=< 1-1 >*20+1  !compute  pointer  cl-12atask  c 13-20«re source 
READ (3.  10)  TSKRS  <  J.  J+ 1 9 ) 

FORMAT </A20> 

ENDDO 

CLOSE  ( UN  I T  =  3  > 


C 

C  read  resource  availability  table 
C 

OPEN  <UNIT=3, FILE= 'RSRC.  DAT ' ,  STATUS= 'OLD  '  ) 

r 

DO  1 = 1 . 50 

J=*I-1)*8+1  'pointer  for  resources 

READ* 3. 40)  RSLSTS ( J  J+7)  ,  RSQTYSt I > .  * RST I MES ( I , K >  ,  K=l, 40) 
40  F0RMAT(/A8. 12, 4011 ) 

ENDDO 

CL0SE*UNIT=3> 

END  IF 

C  read  from  saved  values 

RSLST < 1 . 400  >  =RSLSTS  < 1 : 400  > 

DO  1  =  l .  50 

RSOTY* I )=RSQTYS< I > 

DO  J=l, 40 

RSTIME* I.  J)=RSTIMES* I.  J> 

ENDDO 

ENDDO 

C 

C  call  the  auiilliary  routine  for  each  company 
C  NOTE:  The  ordering  of  companies  here  gives  implicit 

C  prioritization  to  them.  First  come,  first  served. 

C 

C  WR I TE  <  5.  1 39  >  FA  1 LPR A  *  41) 

C 1 39  FORMAT* 'FAILPRA*41 >  on  entry  to  RSRCAUX  ='.i4> 

CALL  RSRCAUX  <SCHA, SCHPRA,  FAILA.  FA  I LPR A. LOCKEDA. 

S  TSKRS. RSLST, RSTIME, RSQTY) 

r 

CALL  RSRCAUX (SCHB.  SCHPRB.  FA1LB.  FAILPRB, LOCKEDB, 

4  TSKRS. RSLST. RSTIME. RSQTY) 

C 

CALL  RSRCAUX ( SCHC ,  SCHPRC,  FAILC,  FAILPRC, LOCKEDC. 

*  TSKRS. RSLST, RSTIME. RSQTY) 


C  ALL  RSRCAUX  (  SCHD,  SCHPRL).  PAILD.  FAILPRD.  LOCKEDD. 


*  TSKRS. RSLST ,  RST IME.  RSQTY  > 

C 

CALL  RSRC AUX  ( SCHH, SCHPRH.  FA1LH.  FAILPRH.  LOCKEDH. 

•  TSKRS. RSLST.  RST IME,  RSQTY) 

C 

RETURN 

END 


SUBROUTINE  RSRCAUXtSCH,  SCHPR,  FAIL.  FAILPR. LOCKED, 

*  TSKRS. RSLST,  RSTIME,  RSQTY) 

C ■■Ba3aBaaaaa3=iaBaaaBBa3XBaaa3B=s8=s=cas3aiaBsaes3==333s:asas=5as3== 

c 

C  does  the  resource  work  on  each  company 
C  this  version  accommodates  but  one  renewable  and 
C  one  expendable  resource  per  activity 
C 

CHARACTER  TSKRSMOOO,  RSLST*400 

INTEGER  RST I ME ( 30, 40),  RSQTY! 50).  I  TIME (40) 

C 

CHARACTER  SCH*480, FAIL*800,  TSK*12.  RS*S 
INTEGER  SCHPR ( 40 ) . L0CKED(40).  FAILPR(41 ) 

C 

DO  IHR  =  1,40  !  f  or  every  task  on  the  schedule 

IF  (LOCKED! IHR >.  EQ.  2 )  GOTO  100  fpreviously  resource  locked 
I TSK= ( I  HR-1 ) *  12* 1  fpointer  to  the  task 
TSK ( 1 . 12)*SCH! ITSK: ITSK*1 1 ) 

DO  1RSC  =  1.30  fcheck  the  resources  need  table 

I TSKRS= < IRSC- 1 ) *20+ 1  ipointer  into  the  resource  req  table 
IF  < TSKRS ( ITSKRS : ITSKRS+2)  .EG  'END')  GOTO  100  'end  of  table 
IF  <TSK<1: 12). EG  TSKRS ( ITSK  RS: ITSKRS+1 1 > )  THEN  fneeds  resources 
RS( 1: 8>=TSKRS! 1TSKR3+12:  ITSKRS+19)  !get  the  resource  id 
DO  IAVAIL=1,  30  !  check  the  resource  available  table 

IAVPNT®* IAVAIL-1 )*Q*l 

IF  (RSLST < IAVPNT:  1AVPNT+2).  EQ.  'END')  GOTO  90 
IF  (RS(1:B).EQ.  RSLST ( IAVPNT ;  I A VP NT  *7 )  )  THEN  Its  available 
IF(RSQTY! IAVAIL).  CT.  0)  THEN  fqty  available 
RSQTY ( I AVAI L  >  =RSQTY ( I  AVAIL ) - 1  ‘deer  qty 
IF  ( LOCKED ( IHR ) . EQ.  0 ) LOCKED! IHR ) *2  fit's  go.  lock  if  not  already 

ELSEIF(RSTIME( IAVAIL. IHR)  GT  O)  THEN  frenewable  avail 
RSTIME( IAVAIL.  IHR >=RSTIME ( I  AVAIL,  IHR1-1  fdecr 
IF  (LOCKED! IHR).  EQ.  0)L0CKED( IHR )=2  flock  it.  if  not  already 
ELSE 

C  here  check  if  renewable  resource  is  available  at  another  time 
C  and  if  so  we  swap  it  with  a  nonlocked  task  at  that  time 

DO  1=1.40  fcopy  into  working  array 
ITIME ( I ) =RSTIME ( I  AVAIL,  I > 

ENDDO 

45  I SUM=0 

DO  1=1.40 

1 5UM=  I  SUM-*- 1 T I  ME  (  I  ) 

ENDDO 

C  if  very  many  times  thru  here  then  just  give  up 

IF ( I  SUM.  GT.  0 )  THEN  fresource  avail  sometime 
47  I HRNEW=RN ( 40 )  fget  a  random  time 

IF  ( ITIME! IHRNEW)  EQ  0)  GOTO  47'no  good 
IF  (LOCKED! IHRNEW)  CT.  0)  THEN  fno  good 
ITIME! IHRNEW ) =0 
COTO  45 

END  I F 

C  make  sure  activity  at  target  doesn't  require  any  resources  3  June  d|n 
DO  1 = 1 . 50 
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IPNT2=< 1-1 )*20+l  I  p  o  inter  into  RSC 
IPNT3* < IHRNEW- 1 ) *  1 2* 1  Ipointer  into  target 
IF <SCH< IPNT3:  IPNT3-H  1  > .  EQ  TSKR3< IPNT2:  IPNT2M  1 > )  THEN 
1TIME*  IHRNEW1-0 
COTO  43 

END  IF 

ENDDO 

CALL  TSXSWAP ( I HR NEW,  I HR,  SCH,  SCHPR ) 

LOCKED  < 1HRNEU>=2 

RST1ME* I  AVAIL.  IHRNEW ) -R5T I  ME ( I AVAIL,  IHRNEW>-1 
COTO  49  isuccess.  jump  out 
END  IF 

C  if  drop  through  to  this  point  than  racord  fail  condition 

99  CONTINUE  ! failure 

IFLPNT=  (FAILPR  <4 1  >-l  >*20-*-l 

FAIL  ( 1FLPNT:  IFLPNT#! 1 > =TSK < 1 :  12)  Itask 
C  if  failure  of  SRC  item  than  raeord  same 

IF  ( LOCKED  <  I  HR  > .  EG.  1  )  THEN 
LOCKED* IHR )=0 

FAIL*  IFLPNTt-12:  I FLPNT+ 1 9 > =  'SRC 

ELSE 

FAIL* IFLPNT+12:  IFLPNT+ 1 9  >=* 'RESOURCE  '  (reason 
END  I  F 

FA  1 LPR  <  FAILPR ( 4 1 ) >  =SCHPR ( I  HR )  I  save  priority 
FAILPR < 4 1 ) =FAILPR < 4 1 > -M  line  the  pointer 
SCH ( 1TSK.  ITSK+1 1  >=  ' 

SCHPR  < 1HR  >=99 

49  CONTINUE  !  jump  hare  if  successful  time  swap 

ENDIF 

END  IF 
ENDDO 

90  CONTINUE  lend  of  resource  availability  table 

ENDIF 
ENDDO 

100  CONTINUE  lend  of  resources  needed  table 
ENDDO 

RETURN 

END 


SUBROUTINE  SAVE < ICOST,  I C0STM1N > 

C 

C  saves  results  of  iteration  if  first  or  bast  so  far 
C 

INTEGER  DUMMY (40) 


INCLUDE  'COMMON  FOR/LIST  ' 

C 

C  WRITE*#,#)  ICOST 

C 

IF  <  IFIRST.  NE.  1  )  THEN  !if  very  first  call  then  initialiie 
IFIRST  = 1 

IC0STMIN=1000000  Inice  and  bigi  play  it  safe 

ENDIF 

C 

C  write  the  cost  to  file  for004  dat 
C 

WR  1  TE ( 4,  50 )  ICOST 
50  FORMAT (18) 

C 

C  if  not  best  so  far  then  forget  it 


non  n  o  o  n  nnu  n  n  r>  n  n  n  r>  r>  n  n  o  o  n  n  o 


IF< ICOST.  CE.  ICOSTMIN)  THEN 

RETURN 

END  IF 

otherwise#  save  the  world 
ICOSTMIN3 I COST 

CALL  SCHCOPY  <  SCHA, SCHA_S.  DUMMY,  DUMMY ) 

CALL  SCHCOPY  <  SCHB, SCHB_S.  DUMMY,  DUMMY ) 

CALL  SCHCOPY <SCHC, SCHC_S,  DUMMY,  DUMMY) 

CALL  SCHCOPY (SCHD, SCHD_S, DUMMY, DUMMY) 

CALL  SCHCOPY (SCHH, SCHH_S,  DUMMY,  DUMMY) 

CALL  FAILCOPY ( FA I LA. FAILA_S,  FAILPRA,  FAILPRA_S) 
CALL  FAILCOPY  <  FA I LB , F  A I L  B  ~S ,  FAILPRB,  FAILPRB_S ) 
CALL  FAILCOPY ( FAILC ,  FAILC_S,  FAILPRC,  FAILPRc3> 
CALL  FAILCOPY  <  FAILD, F A I LD_S,  FAILPRD,  FAILPRD_S ) 
CALL  FAILCOPY ( FA ILH, FA  I LH_S,  FAILPRH,  FAI LPRH_S ) 

RETURN 

END 


SUBROUTINE  SAVEALL (HEADING,  ITER) 


saves  the  world  to  disk 

CHARACTER  HEAD  I NG*40,  TEMP *480 

INCLUDE  'COMMON  FOR/LIST' 

write  to  file  F0R002. DAT 

WRITE<2. 5)  HEADING- ITER 
FORMAT </ 1 X. A40,  '  ITERATION  =  ',16) 

company  A  first 

CALL  PRTDSKt A, SCHA)  ! same  as  SCHPRT  but  LU=2 

CALL  PR  I  SETUP  <  TEMP . SCHPRA ) 

CALL  PRTDSK (A, TEMP ) 

CALL  LCKSETUP ( TEMP , LOCKEDA) 

CALL  PRTDSK(A, TEMP ) 

print  fail  list  and  priority 

DO  1  =  1. FAILPRA<  4 1 >-l 

IPNT«< 1-1 )*20*l 

WR I TE ( 2,  10)  FA  I  LA  < I PNT :  IPNT* 1 9 ) , FA I LPRA < I > 
10  FORMAT  < IX. A20.  5X,  13) 

ENDDO 

C  company  B  nut 

CALL  PRTDSVUB- SCHB  )  'same  as  SCHPRT  but  LU=2 
C 

CALL  PH ISETUP < TEMP. SCHPRD ) 


c 


CALL  PRTDSK! D. TEMP > 


C 

C 

c 

c 

c 

c 

c 

r 

C 

r 

r 

C 


r 

C 

C 

C 

c 


c 

r 

C 

c 

c 


CALL  LCHSETUP  <  TEMP . LOCKEDD  > 

CALL  PRTDSK1D,  TEMP  ) 

print  fail  list  and  priority 

DO  1=1, FAILPRB(41 )-l 

IPNT  =  < 1 -1 )*20*1 

WRITE  <2,  10)  FAILB  (  IPNT:  IPNT-H9) ,  FAILPR8  (  I  ) 

ENDDO 

Company  C  n»«t 

CALL  PRTDSK ( C,  SCHC )  ! same  as  SCHPRT  but  LU=2 

CALL  PR  1  SETUP ( TEMP , SCHPRC) 

CALL  PRTDSK  <  C .  TEMP ) 

CALL  LCKSETUP ( TEMP , LOCKEDC ) 

CALL  PRTDSK ( C , TEMP ) 

print  fail  list  and  priority 

DO  1  =  1.  FA  I LPRC  <41 )-l 

IPNT=< 1-1 ) *20+ 1 

WR I TE ( 2,  10)  FAILC  < IPNT :  IPNT* 19 )  .  FAILPRC ( I ) 

ENDDO 

c  omp  any  D  nett 

CALL  PRTDSK < D.  SCHD )  'same  as  SCHPRT  but  LU  =  2 

CALL  PR  I  SETUP ( TEMP ,  SCHPRD) 

CALL  PRTDSK (D. TEMP) 

CALL  LCKSETUP < TEMP , LOCKEDD) 

CALL  PRTDSK ( D, TEMF ) 

print  fail  list  and  priority 

DO  1  =  1. FA  I LPRD  <  4 1  )-l 

IPNT  = ( 1-1 ) *20* 1 

WRITE <2.  10)  FAILD ( IPNT:  I PNT* 1 9 ) . F A  I LPRD ( I  ) 

ENDDO 

company  H  neit 

CALL  PRTDSK1HHC. SCHH)  'same  as  SCHPRT  but  LU=2 
CALL  PR ISETUP ( TEMP, SCHPRH) 

CALL  PRTDSK (HHC. TEMP > 

CALL  LCKSETUP ( TEMP, LOCKEDH) 

call  prtdskihhc, temp ) 

print  fail  list  and  priority 

DO  1  =  1, F  A  I LPRH  < 4 1  ) -  1 

IPNT»< 1-1 ) «20* 1 


no  no-  u>  u  UW  non  no 


WR  I TE  <2.  10)  FA1LH!IPNT:  IPNT* 19 > . FAILPRH ( I ) 

ENDDO 


RETURN 

END 


■  aaaMsaiBaai 


SUBROUTINE  SCHBLD 

OaaeaaaaaaaaasaaasaBcaasasaaassararaaaaaaaaaaasaaasasaaaasaasasaseaas 
C  Builds  random  schedules  for  each  of  five  companies  using  TSKLST. 

C 

INCLUDE  'COMMON. FOR/LIST ' 

C 


WRITE!5,  10) 

10  FORMAT!/'  *****  Building  Company  Training  Schedules  ***«*') 

C 


CALL  SCHBLDAX ( SCHA_I ,  SCHPRA_I ) 
CALL  SCHBLDAX !SCHB_I .  SCHPRB_I > 
CALL  SCHBLDAX !SCHC~I,  SCHPRC_I > 
CALL  SCHBLDAX (SCHD_I,  SCHPRD_I > 
CALL  SCHBLDAX <SCHH_I,  SCHPRH  I) 


RETURN 

END 

SUBROUTINE  SCHBLDAX  !SCH, SCnPR) 


Builds  random  schedules  for  each  of  five  companies  using  TSKL.ST.DAT 
CHARACTER  SCHT3KS* 1 200,  SCH*480.  IN*1 
INTEGER  SCHPR!40), USED! 100) 

reads  previously  generated  schedules 

IF  ( IFLAG4. EQ  1 )  GOTO  6 

IF  < I FLAG3.  EQ.  1)  GOTO  4  1  already  reading  old  schedules 

WRITE <5. 2) 

FORMAT (  ' *Do  you  want  previously  generated  initial  schedules^') 
READ <  5.  3 )  IN 
FORMAT <A1 ) 

IF!  (IN(1:  1). EQ.  'V')  OR  ( IN! 1 :  1 ) .  EQ.  'y  '  > )  THEN 
IFLAG3= 1 

OPEN  !UNIT«*7.  FILE=  'SAVESCH.  DAT  STATUS='CLD  '  ) 

CONTINUE 
DO  1=1. 40 
IPT=! 1-1 ) *  1 2* 1 

READ! 7,  5)  SCH! 1PT:  IPT*1 1  ), SCHPR! I ) 

FORMAT  <  A 1 2.  13) 

ENDDO 

RETURN 

ENDIF 

1FLAC4=1  !  no  old  files 
CONTINUE 

DO  1=1 . 100 

USED! I ) =0 

ENDDO 

Read  TSKLST  first  time  called 
IF  ! IFLAG  ,  NE  1  )  THEN 
I  FLAG  =  1 

OPEN  ! UN  1 T  =  3.  FILE  ='TSKLST  DAT'.  STATUS  - ' OLD '  ) 


A-2  1 


i 


KU* 
•  y 


$ 

1 


f 


| 

f 

.*>• 

i 

$ 

$ 


DO  I-  1,  100 

US£D(I)-0  !cl»*r  this  guy  at  the  imi  time 
J-< 1-1 )*12+1 

READ<3. 10)  SCHTSKSt J:  J+l 1 ) 

10  FORMAT ( /4XA12) 

ENDDO 

CLOSE  (UNIT-  3) 

END1F 

C  Randomly  build  training  schedule 
DO  1  HOUR- 1,40 
IS  CONTINUE 

KK=RN  <  60 ) 

IF ( USED ( KK > .  EQ  1)  GOTO  IS  lused  this  task  so  get  anothir 
USED<  WK ) - 1  !  mark  it  used 

K—  (KK-1  )*12-*-l 
J=  < IHOUR-1 )*12+1 
•  SCH ( J: J*1 1 )  -  SCHTSKS ( K:  K* 1 1 ) 

ENDDO 

C  generate  some  edr  priorities  for  the  tasks 
DO  1-1.40 

C  SCHPR ( I ) — RN ( 40 > ‘ t h i s  just  gives  random  values  1  to  40 

c  this  will  give  dichotomous  values:  l=priorities  (20‘/.)  99-no  pn 
C 

SCHPR ( I ) =99 

ENDDO 
DO  1  =  1.8 

499  CONTINUE 
J=RN (  40  ; 

IF ( SCHPR < J >  EQ  1>  GOTO  499  lalready  a  edr  priority 
SCHPR ( J ) = 1 

ENDDO 

C  save  the  schedules 

I F ( 1 FLAG2  EQ  1)  GOTO  500  ‘file  already  open 
OPEN  <  UN 1T  =  7. FILE-  'SAVE SCH  DAT STATUS- ' OLD '  ) 

500  CONTINUE 
IFLAG2-1 
DO  1=1.40 

I  PT= ( 1-1  ) *  1 2+ 1 

WRITE  <7.  5)  SCH  < 1 P  T  IPT* 1 t > . SCHPR ( I  ) 

ENDDO 

RETURN 

END 

SUDROUTINE  SCHCOPY< IN.  OUT.  SCHPRIN,  SCHPROUT ) 

C  copies  one  schedule  into  another 
CHARACTER  IN*480. 0UT*480 
INTEGER  SCHPR IN( 40)  ,  SCHPROUT ( 40) 

DO  1=1.40 

SCHPROUT (  I  )  -SCHPR IN<  I ) 

ENDDO 

OUT ( 1  480  >  =  I N  <  1  .  480) 

RETURN 

END 

Qssss3B3  =  3  =  =2£s  =  s3  8a  =  s=  a  =  a  =  .t  =  &  =  =  =  =  r33  =  3=  3a9sxsaasS3:sz3CBS3  =  333a:: 

SUBROUTINE  SRC 

£  BaassBssass^saaaaaaaaat:  —  -i  aaasaaa  -  a  a  a  j  : 

C  Propagates  the  SHORT-RANGE  CALENDAR  downward 
C 

CHARACTER  SRC TSK» 1200.  SRC UN I T • 1 OO .  TSK • 1 2.  1 NF I L E • 1 2 .  UN  I T • 1 
INTEGER  HOUR (100) 


jC  ilYb/VY i 


r>oo  rj  on  rvoo**ono 


This  common  is  only  with  SRCAUX 
INCLUDE  'COMMON.  FOR/LIST' 

WRITE (  3.  1  > 

FORMAT!/'  •*•••  Inheriting  Short-range  Calendar  Activities  ****•') 

INFILE  < 1 :  12)= 'SRC.  DAT' 

Read  the  SRC  DAT  file 
first  entry  only  ! 

IF  < IFLAC. NE.  1 )  THEN 
I FLAG- 1 

OPEN  (UNIT-3, FILE-INFILE,  STATUS- 'OLD'  ) 

DO  1=1.100  'MAX  OF  100  ITEMS  IN  SRC 
K=(l-1 )*12*1 

READO,  20)  SRCTSK  ( K:  K+ll >.  SRCUN I T  <  I :  I  ).  HOUR  (  I  ) 

•  F0RMAT(/A12,  IX,  1A1,  IX,  12) 

ENDDO 

CLOSE  (UNIT=3) 

END  IF 

Now  do  it  for  each  of  the  five  units 

FA 1LPRA ( 4 l ) = 1  Ishould  be  m  1NIT  subroutine!!!!! 

UN  I T  =  'A' 

CALL  SRCAUX ( SC HA, SCHPRA,  FAILA,  UNIT,  FAILPRA, LOCKEDA, SRCUNIT, 

*  SRCTSK, HOUR) 

C 

UNIT- '0  ' 

CALL  SRCAUX ( SC HO , SCHPRB.  FAILS.  UNIT,  FAlLPRB, LOCKEDB, SRCUNIT. 

*  SRCTSK. HOUR) 

C 

UNIT- 'C ' 

CALL  SRCAUX ( SCHC . SCHPRC.  FAILC.  UNIT, FAILPRC, LOCKEDC ,  SRCUNIT, 
e  SRCTSK, HOUR) 

C 

UNIT- 'D ' 

CALL  SRCAUX (SCHD. SCHPRD,  FAILD.  UNIT,  FAILPRD,  LOCKEDD. SRCUNIT. 

*  SRCTSK, HOUR) 

C 

UNIT- 'H ' 

CALL  SRCAUX (SCHH, SCHPRH,  FAILH,  UNIT,  FAILPRH, LOCKEDH. SRCUNIT, 

*  SRCTSK. HOUR) 

C 

RETURN 

END 

c  »  =  a  =  a  3  a  *  a  r  3  =  =  =  a9iaa  =  s933z=r5=3.';  =  =  3s=  =  3i*a:as:sa3assssaas3a::  =  =  ss3a 

SUBROUTINE  SRCAUX (3CH,  SCHPR.  FAIL,  IUNI T,  FAILPR- LOCKED, SRCUNI T, 

*  SRCTSK.  HOUR) 

C  This  is  the  workhorse  src  8MAYB5  djg 

CHARACTER  SCH*40O. FA  I L*800<  TSK*12,  SRCTSK*1200,  SRCUNIT«100. 

»  I  UN  I T •  1 

INTEGER  HOUR  < 100). FAILPR<41  ).  SCHPR (40). LOCKED! 40) 

C 

C  Pun  down  the  SRC  inserting  activities  in  the  schedule,  putting  dis- 
r.  placed  items  in  FAIL  with  the  cdr's  priority  in  FAILPR 

DO  I',Rr  =1  100  ’mai  o*  I  GO  items  read 
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v.  .-.A.fca 


.1 


nr>  nnooo  ui  n  o  o  o 


I=< ISRC-1 )*  12* 1 

IF  <  SRCTSK  <  I :  I  +2 ) .  EQ.  'END')  GOTO  50  (quit  if  end  of  SRC 
C  See  If  this  ictlvitiy  is  relevant  to  this  unit 
IF  <  (SRCUNIT < I SRC :  ISRC ) .  EQ.  IUNI T )  .OR. 

*  ( SRCUNIT < ISRC :  ISRC ) .  EQ  'E'))  THEN 


C  If  hour  unspecified,  then  get  one  that  is  not  locked 
J-HOUR(ISRC) 

IF  <  J. EQ. 0)  THEN 
10  J*RN! 40 ) 

IF  < LOCKED ( J )  .  GE.  1)  GOTO  10  (it's  locked,  get 
ENDIF  lanother 


C  (posssilbe  LOOP 

K=  < J-l )*12+1  (pointer  into  schedule 
TSK< 1:  12)<*SCH!K:  K+l 1 )  (save  whatever  is  in  there 
1=  (FAILPR ! 41 ) -1 ) *20+1  (calc  pointer  into  fail  list 
FAIL( 1 :  1  +  1 1 >=TSK( 1 :  12)  (put  on  fail  list 
1“  1+12  (pointer  for  reason 

C  IF (LOCKED( J > .  GE.  1 )  THEN  (if  an  SRC  item  here  then  move  it 

C20  IPNT=RN <  40 )  (get  an  hour 

IF  (LOCKED! I PNT ). EQ. 1)  GOTO  20  (if  locked  get  another 
CALL  TSKSWAP ( IPNT . J.  SCH  >  (POSSIDLE  LOOP  HERE 

LOCKED  <IPNT>  =  1 


ENDIF  (this  block  obviated  by  imposed  structure  on  SRC. DAT 

FAIL(I: I+7)='T1ME  '  (save  the  reason 

FAILPR<FA1LPR<41 1 )=SCHPR< J)  (save  the  priority 

FAILPR < 4 1 ) =FAI LPR ( 4 1 ) +  1  (inc  pointer  into  fail  arrays 

I=( ISRC-1 ) *12+1  (pointer  into  sre 

SCH(K:K+11) =SRCTSK ( I :  I  + 1 1  )  (put  the  SRC  tsk  on  SCH 
L0CKED(J)=1  (now  lock  the  hour 
SCHPR ( J ) =99 


ENDIF 

ENDDO 

CONTINUE  (jump  from  end  of  SRC 

RETURN 

END 


SUBROUTINE  T AFTER (SCH,  SCHPR.  FAIL. FAILPR, TSK1.  I HR, TSK2, LOCKED) 

this  guy  assures  that  TSK2  precedes  TSK1  in  the  schedule  or  TSK1 
is  added  to  the  fail  list. 

CHARACTER  SCH*480, FAIL*BOO.  TSK1*12, TSK2*12.  REA*S 
INTEGER  SCHPR ( 40 ) . FAILPR ( 4 1 ).  LOCKED ( 40 ) ,  IDUM2(40) 

is  tsk2  already  on  the  schedule  before  tskl.  if  so  quit 

IBLKFLG=0  (assume  there  are  no  unlocked  times  in  schedule 
DO  IHR2=1.  IHR-1  (see  if  prereq.  already  preceeds  TSK! 

IF ( LOCKED! IHR2 )  .  EQ.  0)  IBLKFLG=1  (found  an  unlocked  time 
IPNT* ( IHR2-1 >*12+1 

IF  (SCH( IPNT:  IPNT+1 1 >  .  EQ.  TSK2)  RETURN  (yes.  all  done 

ENDDO 

C  prerequisite  is  not  on  the  schedule.  If  unlocked  hours  then  stuff 
C  it  into  one  of  the  hours. 

I COUNT  *0 

IF! IBLKFLG.  EQ  1 >  THEN  (got  >=  1  unlocked  one.  so  find  it 

10  1=RN ( I  HR- 1 )  'pick  any  ol'  one 

I  COUNT* 1  COUNT ♦ 1  •  if  here  VERY  long  then  give  up 

IF(ICOUNT.GT  V999 >  GOTO  99  'cheap  loop  avoidance 
I F ! SCH !  !  I  - 1 >  *  1 2+ 1 .  < 1-1 )* 12+12)  EQ  ' 

*  )  GOTO  10  'no  blanks  please 
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I F < LOCKED ( I )  CE  1)  GOTO  10  (no  good. got  another 
TSK 1(1:  1 2 ) =SCH (  ( 1-1 > *12+1 :  ( I - 1 > *  1 2+12 )  !i«v«  it 

SCH  (!I-1)*12+1: ( 1-1 >*12+12>=TSK2( 1 : 12) 

LOCKED ( 1 ) «4  (i.e.  locked  by  temporal  relationship 
J*(FAILPR(41 )-l )*20+l  (pointer  into  fail  list 
FAIL< J:  J+l 1 )»TSK1  (what  was  orlgnially  there 
FAIL! J+12: J+19)-'TIME 
FAILPR (FA1LPR  <41 ) >=SCHPR ( I ) 

FAILPR ( 41 ) =FAILPR < 41 )+l  ’ inc  the  fail  list  pointer 

RETURN  (all  done 

END  IF 

if  here  then  TSK1  becomes  the  fail  item  and  blanks  go  into  the  schedule 

• wr i te ( 3,  103)  locked,  ihr.  rea 
105  format!'  entering  REASON 40i2.  i6»  alO) 

9  CONTINUE  !  give  up 

CALL  REASON  (LOCKED. IHR. REA)  (get  the  reason  tsk  was  locked 

TSK2( 1: 12)=' 
wri te ( 3. 110) 

110  format('  entering  TSKSUB  '  ) 

wr ite<5. *)  IHR, TSK2. TSK1. FAIL, FAILPR,  1  DUMMY, REA,  IDUM2 

CALL  TSKSUB  <  SCH, SCHPR,  IHR,  TSK2,  TSK1, FAIL, FAILPR,  I  DUMMY,  REA.  I DUK2  > 

RETURN 

END 

SUBROUTINE  T IMMAFT  <  SCH. SCHPR. FAIL. FAILPR. TSK1.  IHR, TSK2. LOCKED) 

checks  for  relation  that  TSK1  must  follow  immediately  after  TSK2.  If 
not  poosible  TSK1  is  added  to  the  unscheduled  list 


CHARACTER  SCH*480,  FAIL*800, TSK1*12, T5K2*12, REA*8 
INTEGER  SCHPR ( 40 ) , FAILPR (41), LOCKED  <  40 ) ,  IDUM2<40> 

if  it  already  there  then  return 

IPNT= ( IHR-1 ) *12+1  (pointer  into  schedule 
IPNT2= ( IHR-2 ) *  12+1  (pointer  to  the  hour  before 
IF  < SCH < IPNT2:  IPNT2+11).  EQ.  TSK2 ( 1 :  12 ) >  THEN 
RETURN 

END  IF 

it's  not  always  that  easy.  check  locked  time 

IF(LOCKED( IHR-1 ) . EG. 0 )  THEN  !  if  unlocked  then  stuff  it  in 
I a IHR- 1 

TSK 1(1:  12) =SCH  <  ( 1 -1 > *12+ 1 :( 1-1 >* 12+12 >  (save  it 

SCH  ( ( I - 1 ) *  1 2+ 1 :  ( I - 1 ) *  12+ 1 2 ) =TSK2 ( 1 :  12) 

L0CKED(I)=4  (i.e.  locked  by  temporal  relationship 
J™ ( FA  I LPR ( 4 1 ) - 1 ) *20+ 1  (pointer  into  fall  list 
FAIL( J: U+l 1 )=TSK1  (what  was  orignially  there 
FAIL!  J+12:  J+ 19 ) =  'TlflE 
FAILPR (FAILPR! 41 ) ) =SCHPR ( I ) 

FAILPR<41 >  =FA  I LPR (41 ) + 1  'inc  the  fail  list  pointer 
RETURN  'all  done 

END  IF 


if  here  then  TSKt  becomes  t h fail  item  and  blanks  gn  into  the  schedule 
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CALL  REASON  (LOCKED.  IHR.REA)  !get  the  reason  tsk  was  locked 
C 

TSH2(1: 12)-' 

LOCKED < 1HR ) *0 

CALL  TSKSUB ( SCH. SCHPR.  I HR.  TSK2,  TSK1. FAIL. FAILPR.  1 DUMMY , REA.  IDUM2) 

RETURN 

END 

C  assoaaaassaasaaBsaBaaarssarrssssssassaassssaaaaaaaiasasasBaaTsaassasa 

SUBROUTINE  T IMMBEF  <  SCH.  SCHPR,  FAIL.  FAILPR. TSK1.  I HR, TSK2.  LOCKED) 

C  =■>*•  =  =  ■  ===<=»=»  =  =  =  =  =»3  3  =  «  :*===  =  =  =  =  :=  =  =  =  :*  =  =  =  =  =  =  a  =  =  =  *  =  ===  3  aicsr  ==■■»» -saaarsaasi 

C  checks  for  relation  that  TSK1  must  be  follow  Immediately  by  TSK2.  If 
C  not  poosible  TSK1  is  added  to  the  unscheduled  list 


CHARACTER  SCH*480,  FA1L*800,  TSK1*12,  TSK2*12. REA*8 
INTEGER  SCHPR  <  40 ) .  FA  I LPR ( 4 1 ) ,  LOCKED ( 40 ) ,  IDUH2<40> 
C 


if  it  already  there  then  return 

IF(IHR  EQ  40)  GOTO  99  'impossible  to  satisfy 
1PNT= ( I  HR- 1 ) *  1 2* 1  Ipointer  into  schedule 
I  PNT2=»  (  IHR-0 )  *  1 2*  1  'pointer  to  the  hour  after 
IF  (SCH! IPNT2:  IPNT2+1 1 ).  EQ  TSK2! 1  12) >  THEN 
IF < LOCKED < I HR ) .  EQ.  O)  LOCKED! IHR)=4 
IF(LOCKED< IHR-1 ).  EQ  0)  LOCKED! IHR+1 )=4 
RETURN 

ENDIF 


it's  not  always  that  easy  check  locked  time 


IF  ( LOCKED (  IHR-*- 1  ).  EQ.  0 >  THEN  !  if  unlocked  then  stuff  it  in 
I-IHR+1 

TSK1 ( 1 : 12>=SCH(  ( I -1 > *  1 2*1 :  ( I - 1 > *12+ 1 2 >  ! save  it 

SCH  ! ( I  —  1 ) *  12+1  ( I -1 >*12*12>=TSK2( 1 :  12) 

L0CKED!I)=4  !l.e.  locked  by  temporal  relationship 
U=  (FAILPR ! 4 1 ) - 1 ) *20* 1  !pointer  to  fail  list 
WR I TE ( 5. 50 l )  FAILPR ( 4 1 ) , U 
501  FORMAT!'  FAILPR(41>  &  J=  218) 

FAIL ! J:  J* 1 1 ) =TSK  1  (  1  :  1 2 )  'what  was  orignially  there 
FAIL(  J«-12:  J+19)  =  'TIME 
FAILPR (FAILPR (41 ) ) =SCHPR ( I > 

FAILPR ! 4 1 > =FAI LPR ( 4 1 ) ♦ 1  fine  the  fail  list  pointer 
RETURN  ! a  1 1  done 

ENDIF 

if  here  then  TSK1  becomes  the  fail  item  and  blanks  go  into  the  schedule 

99  CONTINUE  ! f a i 1  condition 

CALL  REASON  ! LOCKED.  1HR.  REA )  !get  the  reason  tsk  was  locked 
C 

TSK2 ( 1 ; 12>- ' 

CALL  TSKSUB ! SCH. SCHPR.  I HR  .  TSK2.  TSK1.  FAIL, FAILPR,  IDUMMY, REA,  IDUM2) 

RETURN 

END 

SUBROUTINE  T I MMFOL  <  SCH.  SCHPR,  FAIL. FAILPR.  1 SK 1 .  I  HR ,  TSK2, LOCKED) 


o  o  oonnoooo  o  oooo  o  nonnoo  o  o  n  o  o  o  n  o  o 


checks  for  relation  that  TSK1  must  follow  immediately  after  TSK2.  If 
not  TSK1  Is  added  to  the  unscheduled  list.  NO  ATTEMPT  IS  MADE  TO 
INSERT  TSK2 !  (IE.  TASKS  ARE  ASSUMED  TO  BE  PART  OF  A  BLOCK) 


CHARACTER  SCH*40O,  FAIL*800.  TSK 1  •  12.  TSK2* 1 2.  REA*S 
INTECER  SCHPR ( 40 ) . FA1LPR  <  4 1 ),  LOCKED ( 40 > .  IDUM2<40> 

if  it  already  there  then  return 

IPNT=( IHR-1 )*12-M  (pointer  into  schedule 
IPNT2=< IHR-2)*12-M  (pointer  to  the  hour  before 
IF  <  3CH ( IPNT2:  IPNT2+ 1 1 ) .  EO  TSK2 ( 1 :  12  >  >  THEN 
RETURN 

END  IF 


if  here  then  TSK1  becomes  the  fail  item  and  blanks  go  into  the  schedule 
get  the  reason  this  activity  was  previosly  locked,  if  any 


IF  ( LOCKED  (IHR)  NE.  0 )  THEN 

CALL  PEASON (LOCKED,  IHP. REA) 

ELSE 

REA< 1  8)  = 'TEMPORAL' 


END  IF 


TSK2  < 1  12)  =  ' 

LOCKED ( IHR ) =0 

CALL  TSKSUB ( SCH, SCHPR.  IHR,  7SK2,  T3K1. FAIL. FAILPR,  I  DUMMY , REA,  I DUM2 ) 

RETURN 

END 

subroutine  TMPRL 


Checks  all  precedence  relationships  for  each  company 
This  implementation  assumes  that  an  activity  on  the 
right  side  in  the  temporal  relationship  table  requires 
no  resources. 

CHARACTER  SCH*480.  TSK1*12.  TSK2*480. REL*6 
CHARACTER  PRC*3000  (Precedence  data,  ma ■  of  100 

(table  of  filed  tasks  in  terms 
of  precedence  resolution 

read  common  block 

c 

INCLUDE  'COMMON. FOR/L 1ST ' 
c 

WRITE! 5. 3) 

3  FORMAT (/ '  Verifying  and  Resolving  Temporal  Relationships  ***•*') 

C 

C  Read  precedence  table  into  memory 
C 

C  only  need  to  read  once 
r 

IF ( 1 R DEL AG  NE  1 )  THEN 
1HDEL AC= 1 

npi  n  ( un I  r -  ( .  i  i !  e  -  ■  pri  i) t m .  pat  • .  ?ta  rus  - -old  •  > 

A-27 


oo  r>  o  o  n  n  o  noon  oonoo  o  o  r>  o 


DO  I » 1 . 3000. 30 

READ  <3. 10)  PRC ( I : 1 *29 > 

10  FORMAT (/A30) 

ENDD0 

CLOSE  (UNIT-3) 

END  IF 

Check  it  for  each  company 

CALL  TMPRLAUX  (SCHA,  SCHPRA,  FAILA,  FAILPRA. LOCKEDA, PRC ) 
CALL  TMPRLAUX  < SCHB,  SCHPRB.  FAI LB.  FAILPRB. LQCKEDB. PRC  ) 
CALL  TMPRLAUX  ( SCHD, SCHPRD,  FA1LD.  FA1LPRD, LOCKEDD. PRC ) 
CALL  TMPRLAUX  (SCHC.  SCHPRC.  FAILC,  FAILPRC.  LOCKEDC, PRC ) 
CALL  TMPRLAUX  < SCHH,  SCHPRH.  FAILH,  FAILPRH. LOCKEDH. PRC ) 

RETURN 
END 

SUBROUTINE  TMPRLAUX  ( SCH,  SCHPR,  FAIL. FAILPR, LOCKED,  PRC  ) 


does  the  checking  for  temporal  violations  for  each  company 

CHARACTER  SCH*490,  FAIL*800,  PRC*3000, TSK1*12, TSK2*12. REL*6 
INTEGER  SCHPR ( 40  > ,  PAILPR(4  1 >,  LOCKED (40) 

NEED  TO  DO  REPEATEDLY  UNTIL  NO  CHANGES  ARE  MADE 
later  maybe,  now  just  get  through  it  once 

1 F ( FAI LPR (41)  EQ  C)  THEN 
WRITE <5. 113) 

13  FORMAT ( '  FAIL ( PR )  IS  ZERO******************') 

END  IF 

I FLAG  = 1  1  set  the  repeat  flag  for  first  time  though 

DO  WHILE  ( I  FLAG  EQ  1  > 

IFL  iG=0  !  but  this  may  the  last  time  through 

DO  IHR-1.40  !  do  for  every  task  in  the  schedule 

I TSK= ( I  HR  —  1 ) *  1 2*  1  ! pointer  into  sch 

do  up  to  100  relationships 

DO  IPRC=1. 100  !  row  in  temporal  relationship  table 

I PNT- < IPRC- 1 ) *30* 1  ! pointer  into  temporal  tbl  array 

IF  (PRC( IPNT: IPNT+2)  .  EQ.  'END')  GOTO  1000  ! end  of  data 

TSK1 ( 1 ;  12>=SCH( ITSK:  ITSK+1 1 >  !pull  the  tsk  from  the  schedule 
IF(TSK1 < 1 :  12)  EQ  PRC< IPNT:  I PNT* 11))  THEN  !got  a  match 
IFLAG=>1  !set  the  repeat  flag  for  the  while  loop 
now  let's  see  what  kind  of  relationship  we  have 
REL <1:6)=PRC(IPNT*12:  IPNT*17) 

TSK2 <1.  12 )  *=PRC  (  I PNT *18;  IPNT *29 )  !get  the  paired  task  too 

IF  <  REL (1:6)  EQ  'AFTER  ')  CALL  TAFTER < SCH, SCHPR , FAI L. FAI LPR . 

*  TSK1,  1HR, TSK2.  LOCKED) 

IF  (REL  < 1 :  6 )  .  EQ  'IMMAFT')  CALL  T IMMAFT < SCH- SCHPR , FA  I L, FA ILPR. 
%  TSK1 , IHR, TSK2, LOCKED) 

IF  ( REL (16)  EQ.  ' I MMBEF  '  )  CALL  T I MMBEF ( SCH, SCHPR , FAI L, FA ILPR . 
«  TSK1  ,  IHR. TSK2. LOCKED) 

IF  ( REL (16)  .  EQ  ' IMMFOL  '  )  CALL  T IMMFOL ( SCH, SCHPR , FAI L,  FAILPR  , 

*  TSK1,  IHR.  TSK2, LOCKED) 

ENDIF 

ENBDO 

1000  CONTINUE  'end  of  data  in  PRC  table 


ENDDO 
C  ENDOO 

RETURN 
END 

^■■aBaaBaaaausaaaaaBasssaaasssaraassaaasBsaasasaazsaassaasssssssBzs 

SUBROUTINE  TSKRPLC<LOC.  TSK.  SCH) 

C  aaaasaaaBaaaaaaaaaaaaaaaaaasaaaaBaaaaaaaBasaBaasaaaaaasaaaBaaaaaBSa 

C  Put*  task  into  a  schedule  at  location  LOC. 

CHARACTER  SCH*480, TSK* 1 2 

I«<LOC-l ) *  12+ 1 

SCH ( I :  1*11 )-TSK< 1:12) 

RETURN 

END 

SUBROUTINE  TSKSRCH  < TSK. SCH.  I  START. LOC > 

C  Searchs  given  schedule  for  a  task  from  hour  ISTART  (1-40).  Returns 
C  hour  location  or  lero  if  not  found. 

C 

CHARACTER  TSK* 1 2, SCH*480 
DO  I  =  ISTART. 40 
J=< 1-1 >*12*1 

IF  ( TSK ( 1 . 12)  . EQ  SCH  <J:J+11>>  THEN 
LOC*  I 
RETURN 
ENDIF 
ENDDO 
L0C  =  0 
RETURN 
END 

SUBROUTINE  TSKSUD  <  SCH.  SCHPR.  ITARGET.  TSKIN.  TSKOUT, 

*  FAIL, FAILPR.  IPNT. REASON,  TRIED) 

C  substitutes  TSKIN  in  schedule  SCH  at  hour  ITARGET,  removing  that  task 
C  TSKOUT,  putting  it  on  the  fail  list  with  REASON  Also  swaps  priorities 

C 

CHARACTER  SCH*480, TSKIN*12. TSK0UT*12, FAIL*300. REASCN*8 
INTEGER  SCHPR  <  40 ) . FAILPR<41 ),  TRIED(40> 

C  CHARACTER  DUMMY*40 

C 

ISCH=< I  TARGET- 1 ) *  1 2+ 1 

TSKOUT  < 1 :  12>=SCH< ISCH  ISCH+1 1  ) 

SCH< ISCH: ISCH+1 1 >=TSKIN< 1:12) 

ISAVE=SCHPR( ITARGET) 

IF  ( TSK I N ( 1 : 12)  EQ  '  ')  THEN  (special  case  when 

SCHPR ( I  TARGET)  =  1000  'TSKIN  is  blank 

IPNT=FAILPR  <  4 1 > 

FAILPR  <41  )  -FAILPR  <  4  1  >*1 

ELSE 

SCHPR  < ITARGET)=FAILPR< IPNT) 

ENDIF 

IF  <TSKOUT< 1 :  12)  .  EO  '  ')  THEN 

FAILPR < IPNT )=FAI LPR (FAILPR  <41 )-l ) 

J=< IPNT-1 >*20*1 

K=(FAILPR<41 )-l >*20+1-20  ’last  element  on  fail  list 
FAIL  <  J  Jr  1 9  )  =FAIL  <  K  .  K*19> 

TRIED! IPNT) -TRIED (FAILPR <41  )  ) 

IPNT-FAILPR  <41 ) -1 
FAILPR <41 ) -FAILPR <41 >-l 
REASON ( 1  8)=' 


ELSE 


U  UOU  tj  IK'  L)  u  uuo^uoou  oouo 


J-< IPNT-1 ) *20+ 1 

FAIU( J: J-+1 1 ) “TSKOUT  <  1 :  12) 

FAIL  (J+ 12:  J-+19 )  =  R EASON <  1 :  8) 

END  IF 

RETURN 

END 

C333****8*33*^^2253532**3***  — — 3  33  =  =  223333  =  332*=::*:=  taasa  3  =  3  33  =  3  =  333  =  3  =  333333 

SUBROUTINE  TSKSWAP! IHR1.  IHR2.  SCH.  SCHPR ) 


Interchanges  activites  between  two  hour  slots  (1-40)  in  a  a  schedule 


CHARACTER  SCH*480,  TSKTEMP*12 
INTEGER  SCHPR (40) 

J=  < IHR1  -  1)  •  IJ  +  1 
K»  ( IHR2  -  1)  *  12  +  1 
TSKTEMP< 1: 12)  =  SCH  (K:K*11) 

SCH(h:K*ll)  =»  SCH  (J:J+11> 

SCH ( J: J+l 1 )  =  TSKTEMP < 1 : 12 > 

I=SCHPR ( IHR 1 )  (swap  cdr  priorities  for  respective  tasks 
SCHPR ( I HR  1 ) =SCHPR ( IHR2 ) 

SCHPR ( I HR2 ) = I 

RETURN 

END 


SUBROUTINE  UNSCH 


schedules  low  priority  tasks  requiring  no  resources  and  having 
no  temp  relationships 

CHARACTER  TSKRSMCCG.  PRC*30C0.  IN*1 
INTEGER  RST I  ME  <  50. 40). R30TY(50) 

CHARACTER  TSK*12. INFILEM2 


INCLUDE  'COMMON  FCR/LIST' 

WRITEO.  1  ) 

FORMAT!/'  *****  Completing  Schedules  with  Misc  Activites  ** 

read  the  table  of  resources  required  by  tasks 
only  need  to  read  once 

IF ( IRDFLAC.  NE.  1 )  THEN 
I RDFLAG= 1 

OPEN  ( UNI T=3. F ILE= ' TSKRSRC .  DAT STATUS= 'OLD ' ) 

DO  1=1.  50 

J=( 1-1 )*20*1  (compute  pointer  cl-12=task  c 1 3-20=r e s our c e 
READ(3,  10)  TSKRS (  J  J* 1 9  > 

0  FORMAT </A20) 

ENDDO 

CLOSE  <  UN I T  =  3 ) 


Read  precedence  table  into  memory 


OPEN  (UN IT  =  3. F I LE= ' PHCDTBL  .  DAT ’ .  STATUS= 'OLD ' ) 
DO  1=1.3000.30 

READ  (3.  11)  PRC ( I  I +29  > 

11  FORMAT! /A30i 

ENDDO 


A-30 


n  n  o  on  non  nnono  o  o  o  o  o  nan 


CLOSE  ( UN I T  =  3 ) 
END  IF 


call  the  auiilliary  routine  for  each  company 


CALL  UNSCHAUX  < SCHA< SCHPRA,  FAILA.  FAILPRA. LOCKEDA, 

*  TSKRS. PRC ) 

CALL  UNSCHAUX  <SCH8.  SCHPRB,  FAILB.  FAILPRB.  LOCKEDD . 

*  TSKRS.  PRC) 

CALL  UNSCHAUX <SCHC,  SCHPRC,  FAILC,  FAILPRC.  LOCKEDC. 

*  TSKRS. PRC) 

CALL  UNSCHAUX <SCHD, SCHPRD.  FAILD,  FAILPRD.  LOCKEDD, 

*  TSKRS. PRC) 

CALL  UNSCHAUX  <  SCHH, SCHPRH,  FAILH,  FAILPRH,  LOCKEDH, 

*  TSKRS. PRC) 


RETURN 

END 

SUBROUTINE  UNSCHAUX  < SCH,  SCHPR,  FAIL.  FA  I LPR , LOCKED.  TSKRS. PRC ) 


puts  unscheduled  activities  on  the  company's  schedule  21MAY85  djg 

CHARACTER  SCH*480, FAIL*800.  TSK1*12,  TSK2*12. PEL*&, 

*  T3KRSM000.  PRC*3000,  DUMMY1*B 

INTEGER  SCHPR ( 40) .  EAILPR(41 ),  LOCKED' 40).  DUMMY2140) 

look  at  each  hour  of  the  schedule  and  find  the  blanks 

DO  I HR= 1 , 40 

I TSK= < IHR-1 ) *  1 2+1  !  pointer  to  the  task  in  schedule 

IF<SCH<  ITSK:  ITSK+U  ).  EQ  '  ')  THEN  !  found  a  blank 

find  a  activity  on  the  fail  list  with  low  priority  and 
no  resource  needs  or  temp  relationships 
DO  I FAIL= 1 . FA  I LPR  <41 ) - 1 
J=»(  IFAIL-1  )*20+l 
TSK 1 < 1 : 12)=FAIL< J. J+l  I  > 

IF1FAILPR < IFAIL ) .  EQ.  99)  THEN 

DO  IRSC  =  1.50  !  check  for  resource  needs 

ITSKRS=(  IRSC-l  >*20+1 

IF ( TSK1 ( 1 :  12).  EQ.  TSKRS ( I TSKRS:  I TSKRS* 11))  GOTO  100 
IF ( TSKRS < I TSKRS:  I TSKRS  +  2 ) .  EQ  'END')  THEN 
check  the  temporal  relationship  table 

DO  ITM=1. 100 

I TMPT  =  < ITM-l ) *30+ 1 

IF  < PRC ( I TMPT:  I TMPT +  2 )  EQ  'END')  GOTO  85 
IF (TSK 1 ( 1: 12). EQ. PRC ( I TMPT : I TMPT* 1 1 ) )  THEN 
GOTO  90  •  failure 

END1F 

ENDDO 

ok.  made  it  through  the  tests  now  going  to  put  it  on  the  sch 
C 

05  CONTINUE 

CALL  TSKSUB ( SCH.  SCHPR.  I  HR .  TSIU  .  TSK2,  FAIL. 

I  FAI1.PP.  IFAIL  .  DUMMY  1  .  DUMMY?  > 


90 

100 

200 


CONTINUE  feither  in  a  temp  relat  or  end 
END  IF 

ENDDO 

CONTINUE  'either  task  needs  resources  or  list  at  end 
END  IF 
ENDDO 

END  IF 

CONTINUE  !task  put  on  schedule  so  try  other  hours 

ENDDO 

RETURN 

END 


SCHEDULE  FOR  COMPANY 
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16:00  DECON  SKIN  3  MNTN  M17  MSK  PARADE  RCOG  CB  HZRD  NERVE  AGNT 


Data  tables  used  for  sample  program  run 
(difficult  problem) 
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I - X 

1FIRST  AID  1 

I - 1 

2FIRST  AID  2 

j - 1 

3FIRST  AID  3 

I - 1 

4FIRST  AID  4 

I - 1 

5FIRST  AID  5 

I - 1 

6FIRST  AID  6 

I - 1 

7FIRST  AID  7 

X - X 

8FIRST  AID  B 

I - 1 

9FIRST  AID  9 

I - 1 

10FIRST  AID  10 

I - 1 

1 1ARCRFT  REC  1 

I - 1 

12ARCRFT  REC  2 

I - 1 

13MISSI0N  SUPP 

I - 1 

14MISSI0N  SUPP 

I - 1 

1 5P0LICE  AREA 

I - 1 

16P0LICE  AREA 

I - 1 

17WORK  CALL  1 

I - 1 

1 8W0RK  CALL  2 

I - X 

19W0RK  CALL  3 

I - 1 

20 WORK  CALL  4 


List  of  possible 
acitivities. 
(TSKLST.  DAT) 


I - 1 

21 INSPECTION  1 

I - 1 

22 INSPECT I ON  2 

I - 1 

23 INSPECT I ON  3 

I - 1 

24 INSPECTION  4 

I - 1 

25 ARE A  MAI NT  1 

I - 1 

26AREA  MAI NT  2 

I - 1 

27 AREA  MAINT  3 

I - 1 

28AREA  MAINT  4 

I - 1 

29MNTN  Ml 7  MSK 

I - 1 

30WEAR  M17  MSK 

I - 1 

31DEC0N  SKIN  1 

I - 1 

32WEAR  PRT  CLT 

I - 1 

33RC0G  CB  HZRD 

I - 1 

34MAINT  M16  1 

I - 1 

35MAINT  M16  2 

I - 1 

36MAINT  M80  1 

I - 1 

37MAINT  M80  2 

I - 1 

38MAINT  .  45  1 

I - 1 

39MAINT  .  45  2 

I - 1 

40PREP  M72  1 


r  r. 


eVF  T  iT ’i1  1* 


I - 1 

41PREP  M72  2 

I - 1 

42 ID  HAND  CREN 

I - 1 

43ID  ARMOR  VEH 

I - 1 

44 ID  TRUCKS 

I - 1 

45 ID  WEAPONS 

I - 1 

46 INSTALL  M18 

I - 1 

47USE  MAP  1 

I - 1 

48USE  MAP  2 

I - 1 

49USE  COMPASS 

I - 1 

501 D  TERR  PEAT 

I - 1 

51DET  GRID  CRD 

I - 1 

52MAC  AZIMUTH 

I - 1 

53NERVE  AGNT  1 

I - 1 

54NERVE  AGNT  2 

I - 1 

55NERVE  AGNT  3 

I - 1 

56NERVE  AGNT  4 

I - 1 

57DEC0N  SKIN  2 

I - 1 

58DEC0N  SKIN  3 

I - 1 

59DEC0N  SKIN  4 

I - 1 

60BATTLE  DRILL 
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I — task - II-resource  RESOURCE  TABLE  max=50 

RVW  EDRE  PLNINST  DOE 


I - 

FIRST  AID 

-II - 1 

2 INST  DOE 

(TSKRSRC.  DAT) 

I - 

FIRST  AID 

-II - 1 

3 INST  MOE 

If  activity  uses  both 

I - 

FIRST  AID 

-II - 1 

4 INST  MOE 

expendable  a  renewable 

I - 

FIRST  AID 

-II - 1 

5 INST  ROE 

resources*  expendables 

I - 

FIRST  AID 

-II - 1 

6 INST  ROE 

must  be  before  renewables 

X - II - 1 

FIRST  AID  7 INST  JOE 

I - II - 1 

FIRST  AID  8 INST  JOE 

X - II - 1 

FIRST  AID  9 INST  COE 

I - II - 1 

for  code  to  work  correctly 

FIRST  AID  10INST  COE 

I - II - 1 

10 

M16  FIRING 

M16  AMMO 

11 

I - II - 1 

M16  FIRING  M16  RNG 

I - II - 1 

12 

COM  TSK  TESTTR  ARA  1 

I - U - 1 

13 

ID  TRUCKS 

I - 

BN  CLSRM 
-II - 1 

14 

ID  WEAPONS  BN  CLSRM 

I - II - 1 

15 

NERVE  AGNT  2BN  CLSRM 

I - II - 1 

16 

ARCRFT  REC  2BN  CLSRM 

I - II - 1 

17 

BATTLE  DRILLTR  ARA  2 

I - II - 1 

18 

USE  COMPASS  TR  ARA  2 

I - II - 1 

19 

INSTALL  M18  TR  ARA  3  20 
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Short— rang*  Calendar 


<SRC.  DAT) 


I - task - 1 

PARADE 

1 - 1 

PARADE 

I - 1 

PT 

I - 1 

PERS  HYGIENE 

I - 1 

PT 

I - 1 

BN  INSPECTN 

I - 1 

TEWT  1 

I - 1 

TEWT  2 

I - 1 

FTX  1 

I - 1 

FTX  2 

I - 1 

FTX  3 

I - 1 

FTX  4 

I - 1 

FTX  1 

I - 1 

FTX  2 

I - 1 

FTX  3 

I - 1 

FTX  4 

I - 1 

COM  TSK  TEST 

I - 1 

RVW  EDRE  PLN 

I - 1 

M16  FIRING 

I - 1 

BAYONET  PRAC 
I - 1 


Unit 
E  23 
I  Hour 
E  24 
I  II 
E  1 
I  II 
E  2 
I  II 
E  33 
I  II 
E  9 
I  II 
H  30 
I  II 
H  31 
I  II 


mandated.  0  is  none 

Unit  E  is  every.  100  maximum  will  be  read. 
*****  FILE  STRUCTURE  NOTE  ***** 

Activities  with  specified  times  MUST 
preceed  acitivies  without  specified  times!!! 


END 
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1 


I — task - 1 I -re  source 

RVW  EDRE  PLNINST  DOE 

j - n - 1 

FIRST  AID  2 INST  DOE 

I - II - 1 

FIRST  AID  3 INST  MOE 

I - II - 1 

FIRST  AID  4 INST  MOE 

FIRST  AID  5 INST  ROE 

I - II - 1 

FIRST  AID  6 INST  ROE 

I - II - 1 

FIRST  AID  7 INST  JOE 

I - II - 1 

FIRST  AID  8 INST  JOE 

I - II - 1 

FIRST  AID  9 INST  COE 

I - II - 1 

FIRST  AID  10INST  COE  10 

I - II - 1 

Ml*  FIRING  M16  AMMO  11 

I - II - 1 

Ml*  FIRING  Ml*  RNG  12 

I - II - 1 

COM  TSK  TESTTR  ARA  1  13 

I - II - 1 

ID  TRUCKS  BN  CLSRM  14 

I - II - 1 

ID  WEAPONS  BN  CLSRM  15 

I - II - 1 

NERVE  AGNT  2BN  CLSRM  1* 

I - II - 1 

ARCRFT  REC  2BN  CLSRM  17 

I - II - 1 

BATTLE  DRILLTR  ARA  2  18 

I - II - 1 

USE  COMPASS  TR  ARA  2  19 

I - II - 1 

INSTALL  Ml 8  TR  ARA  3  20 


RESOURCE  TABLE  max»50 
(TSKRSRC.  DAT) 

If  activity  uses  both 
expendable  a  renewable 
resources,  expendables 
must  be  before  renewables 
for  code  to  work  correctly 
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i - n - 1 

ID  ARMOR  VEHDEMO  KIT 

i - n - 1 

FIRST  AID  9BN  CLSRM 

I - XX - X 

FIRST  AID  10BN  CLSRM 

I - n - X 

ID  TRUCKS  DEMO  KIT 

I - n - X 

ID  WEAPONS  DEMO  KIT 

I - n - X 

ID  TERR  FEATTR  ARA  2 

I - II - X 

MAC  AZIMUTH  TR  ARA  2 

I - n - X 

ID  HAND  GRENDEMO  KIT 

MAI NT  M80  2  TR  ARA  2 

I - II - X 

RCOG  CB  HZRDBN  CLSRM 

I - II - 1 


21 

22 

23 

24 

25 

26 

27 

28 

29 

30 


I - 1  !  S  I — RESOURCE  AVAILABILITY  <RSRC.  DAT) - 1 

INST  DOE  111111111111111111111111 

resource!  S I - + - ! - + - i - + - * - + - 1 

BN  CLSRM  llllllllllllllllllllllllllllllllllllllll 

I - 1  quantity  if  expendable#  OR-*- - ! - + - 1 

Ml 6  AMM005 

I - I! .hours  available  if  reneuab  1  e- ! - ■*■ - 1 

TR  ARA  1  11111111111111111111111111111111 

I - 1! 'I - + - maximum  of  50  lines-! - + - 1 

M16  RNG  11111111 

I - 1  !  !  I - + - ! - + - ! - + ! - + - 1 

INST  MOE  11111111111111111111111111111111 

I - 1!  !  I - + - ! - + - ! - + S - + - 1 

INST  ROE  11111111  111111111111111111111111 

I - 1  !  •  i - + - i - + - ! - + - i - + - 1 

INST  JOE  1111111111111111  1111111111111111 

I - 1  !  !  I - + - S - + - i - + - ! - + - 1 

INST  COE  11111111111111111111111111111111 

I - X  .  .  i - + - • - + - • - + - : - + - 1 

TR  ARA  2  lllllllillllllllllll 

I - 1  j  ;  x - + - ! - + - i - + - ! - +■ - 1 

TR  ARA  3  111111111111111111111111 

I - j.  j  i - + - j - + - . - + - 5 - + - 1 

DEMO  KIT  111111111111111111111 

I - X  |  •  i - + - l - + - • - + - ! - + - 1 

END 
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Table  of  precedence  relationships:  tsk  <cl2>  relation  <c6>  tsk  (cl2) 
PT  IMMBEFPERS  HYGIENE 

I - II - II - 1 

FTX  1  IMMAFTTRP  MOVEMENT 

I - II - II - 1  (PRCDTBL.DAT) 

ARCRFT  REC  2AFTER  ARCRFT  REC  1 

FTX  2  IMMFOLFTX  1 

I - XX - ii - 1 

FTX  3  IMMFOLFTX  2 

I - II - n - 1 

FTX  4  IMMFOLFTX  3 

I - II - n - 1 

BAYONET  PR AC IMMBEFPERS  HYGIENE 

I - II - n - 1 

FIRST  AID  2AFTER  FIRST  AID  1 

I - II - ii - 1 

WEAR  Ml 7  MSK AFTER  MNTN  Ml 7  MSK 

I - II - ii - 1 

MAINT  M16  2  AFTER  MAINT  M16  1 
USE  MAP  2  AFTER  USE  MAP  1 

I - II - ii - 1 

PREP  M72  2  AFTER  PREP  M72  1 
NERVE  AGNT  2AFTER  NERVE  AGNT  1 
DECON  SKIN  2AFTER  DECON  SKIN  1 

I - II - ii - 1 

DET  GRID  CRDAFTER  USE  MAP  1 

I - H - xi - 1 

END 
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